I am trying to transpose and copy data from sheet1! from c8..f8; C144..F144,
C277..F277, C410..F410, C545..F545, C680..F680, C815..F815

to:

Sheet2
G20..G23, G24..G27, ....till end.

I am using the below sub:
Sub test()

Dim Destcol As Long, Originrow As Long, Destrow As Long, i As Long
Originrow = 8
Destcol = 7
Destrow = 20
For Originrow = 8 To 818 Step 135
Range(Cells(Originrow, 2), Cells(Originrow + 3, 6)).Copy _
Destination:=Sheet2!Cells(Destcol, Destrow)
Destrow = Destrow + 1
Next
End Sub

I am getting the error [runtime error 438 object doesnot support this
property or method] Could you help please?