None of the above worked. The reason I think is because the Range equation
lies within a:
Select Case z
Case 1
Sheets("Sheet1").Range("A4:XX4") = Sheets("Sheet2").Range("A1:XX1")
Case 2
....
End Select

For some reason in a Select Case it gives the error below:

Application-defined or object-defined error.

When I tried:
Sheets("Sheet1").Cells(4,1)=Sheets("Sheet2").Cells (1,1)
It printed out the first cell of Sheet2 with no error, Strange.