Cells(selection.Row,1).Resize(1,5).Copy _
Destination:=Worksheets("Sheet2"). _
Cells(rows.count,1).End(xlup)(2)

or the more general:

Selection.Copy _
Destination:=Worksheets("Sheet2"). _
Cells(rows.count,1).End(xlup)(2)

--
Regards,
Tom Ogilvy

"karaeloko" wrote in message
...
Hi,
I have a list or database in excel and I need to copy the
data I select to another sheet. Let me explain: suppose I
select the range A1:E1 from the table and copy/paste it to
A1:E1 (sheet2), then I select A9:E9 and copy it to A2:E2
on sheet2.
How can I create a macro that will copy my selection and
paste it on the other sheet/workbook next to the last row
of data entered.