transpose copy and paste
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 Transp()
Dim Destcol As Long, Destrow As Long, i As Long
Destrow = 7
Destcol = 20
For Destrow = 8 To 818 Step 135
Range(Cells(Destrow, 3), Cells(Destrow + 3, 6)).Copy _
Destination:=Cells(Destcol, Destrow)
Destcol = Destcol + 1
Next
End Sub
What is wrong with my code?
Thanks for your help
|