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?