Sub Copydata2()

Worksheets("CustomerDetails").Range("A2").Copy _
Destination:=worksheets("Sales").Cells(rows.count, 1).End(xlup)(2)
End Sub

--
Regards,
Tom Ogilvy

"alan_bourne" wrote in message
...

the one b4 does work but not quite as i need it to if u c wat i mean


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/