VBA Copy and Paste Macro Excel for range of cells to populate in column and then pick next range

[besucool]

Hi folks, been wrecking my brain on this.

Basically I want to copy and paste H1:H10 into C1:C10 and then pick next column of I1:I10 copy into next blank area of column C which is C11:C20; then copy next column J1:J10 into C21:30; then K1:K10 into C31:40 etc etc etc. This repeats itself for about 60 times from columns from H to BO.

So I am struggling picking a range of cells from column H after copying to move to next range on the right and copying into the next blank section in column C the target column.

Any help would be great.

Thanks,

 

[besucool]

brilliant. I needed this for my work by Monday for work and was literally tearing my head out.

Owe you definitely a pint M.A.I.T. Anytime

Try this:

This will copy over all rows even if they are empty.

Sub Test()
'Modified
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = 1
LastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    'If you want to do this till last column with data in row(1)
    'Change 67 to "LastColumn"
    For i = 8 To 67
        Range(Cells(1, i), Cells(10, i)).Copy Destination:=Cells(Lastrow, 3)
        Lastrow = Lastrow + 10
  
    Next
Application.ScreenUpdating = True
End Sub

OK

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

brilliant. I needed this for my work by Monday for work and was literally tearing my head out.

Owe you definitely a pint M.A.I.T. Anytime