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?

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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maxx" wrote in message ...
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?

Thanks Ron,
That's terrific.


"Ron de Bruin" wrote in message
...
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

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Maxx" wrote in message
...
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?