Anthony

To copy to the first available row, change

rng1.copy Destination:=worksheets("sheet2").Range("A2")

to

rng1.copy Destination:=worksheets("sheet2".Cells(Rows.Count, _
1).End(xlUp).Offset(1, 0)


Gord Dibben Excel MVP

On Tue, 8 Feb 2005 15:34:04 -0500, "Tom Ogilvy" wrote:

Possibly

Sub Macro1()
Dim rng as Range, rng1 as Range
set rng = Application.UsedRange
set rng1 = Range(Range("A3"),rng)
rng1.copy Destination:=worksheets("sheet2").Range("A2")
End sub