View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Darius Darius is offline
external usenet poster
 
Posts: 41
Default 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