CopyTransposePaste into next blank row

Maxx · Jan 20, 2009

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 · Jan 20, 2009

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 · Jan 20, 2009

Thanks Ron,
That's terrific.

Ron de Bruin said:
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