THank you very much That's perfect

"Gord Dibben" wrote:

Sub findbottom_paste()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Selection
Set rng2 = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
rng1.copy Destination:=rng2
End Sub


Gord Dibben MS Excel MVP

On Wed, 8 Oct 2008 10:26:35 -0700, GeorgeR
wrote:

I have data that I want to move to a different summary sheet. I am bale to do
this but, I would like the information in the next available row not with
blank rows between the entries. This is done several times a day so
autofilter would be a time consuming option. Thanks for your help
GeorgeR