Copy & Paste to next empty row

Hi All

I've written this macro but I'm still having problems with it in that it's only copying the data into one row then overriding it when the macro is run again

What have I missed on this to force it to go down to the next available row and paste the data

Also, for some reason it won't start at B3 but rather B1....

Thanks again

Dan

//Code Sub CopyPaste()

Sheets("Sheet1").Select
Range("D10, D12, D14, D16,D18, D20").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B3").End(xlUp).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True


End Sub //Code

end(xlup) will return the last row with data in so you need the one after that for the next empty row. Also, if you move up from B3 it will either return B1 or B2...

You probably want:

Please Login or Register  to view this content.

Although I'm not sure if you can copy and paste a range like that which isn't continuous.

Duplicate post

http://www.excelforum.com/excel-prog...empty-row.html