CopyTransposePaste into next blank row

[Maxx]

Sub CopyTransposePaste()
Range("A1:A8").Copy
Sheets(2).Range("A1").PasteSpecial Transpose:=True
End Sub

How can I amend this code so that data is copied into the next blank row in
Sheet2?

 

[Ron de Bruin]

Hi Maxx

See the third example macro here
http://www.rondebruin.nl/copy1.htm

Sub Copy_1_Value_PasteSpecial

Change the last argument to True

 

[Maxx]

Thanks Ron,
That's terrific.

Hi Maxx

See the third example macro here
http://www.rondebruin.nl/copy1.htm

Sub Copy_1_Value_PasteSpecial

Change the last argument to True