Copy a range 1 column over

[Paragons]

I have data in cells AD2:AG2, but each cell has unique formats.
This repeats every 20 rows (AD22:AG22) e.g. until row 1100
I would like a VBA macro to copy them and paste 1 column over...AE2:AH2 for the first row, AE22:AH22 for the next and the same formats must be retained...i.e AD2 format goes to AE2 etc.

I don't under stand how to step the procedure and capture the 4 columns at the same time.


Also, I'll have to repeat for rows 3, 23, 43 etc
Thanks,

Pete

 

[JEC]

If you want all formats, probably something like below

Sub tst()
 For i = 3 To 1100 Step 20
    Cells(i - 1, 31).Resize(, 4).Copy
    Cells(i, 31).PasteSpecial xlPasteFormats
 Next
End Sub

 

[Paragons]

Thanks...I got mine to work but only 1 column at a time so this is better.

Pete