summary sheet
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
|