Sub AAA()
Range("AH1").End(xlDown).Select
Selection.Copy ActiveCell.Offset(1, 0)
ActiveCell.Offset(1, 0).Select
Do
ActiveCell.Copy _
ActiveCell.Offset(1, 0)
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(Cells(ActiveCell.Row, "AG"))
ActiveCell.ClearContents
End Sub

--
Regards,
Tom Ogilvy


"DavidM" wrote:

Hi guys sorry I made a blob I apologize

The T should have been AG

I'm wanting it to paste the Content of AH2 to "AH3 to AH10"
which is to the right of any data cells in column AG, until it finds a blank
cell in column AG then stops pasting to cells in column AH.


AG1 has header
AG2 to AG10 has data in cells

AH1 has header
AH2 data
AH3 to AH10 Blank

Thanks for your reply

DaveM