CopyTransposePaste into next blank row
 

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?

CopyTransposePaste into next blank row
 

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?

CopyTransposePaste into next blank row
 

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?