Copying Data to another sheet

[Steve]

I need to help to do the following programmatically.

On a sheet named "Arrival Report", I need to copy cells
A12:N101 (only if column A not blank) to another
sheet called "Collection Sheet" and paste it in the first
row that is blank. I need to do this task daily.

The "Collection Sheet" would contain all data
indefinitely but the "Arrival Report" would only contain
data for that one day.

Thanks Steve

 

[Tom Ogilvy]

Sub copyRange()
Dim rng as Range
Dim rng1 as Range
with worksheets("Arrival Report")
set rng = .Range("A12:A101").specialCells(xlconstants)
End With
Set rng1 = worksheets("Collection Sheet").Cells(rows.count,1).End(xlup)(2)
rng1.entireRow.copy destination:=rng1
End Sub

 

[Guest]

Thanks Tom, when I changed the last line to
rng.entireRow.copy destination:=rng1

it worked perfectly !!!!

I appreciate your help.

Steve

 

[Tom Ogilvy]

Yep, my typo.

Sorry.

Regards,
Tom Ogilvy

Thanks Tom, when I changed the last line to
rng.entireRow.copy destination:=rng1

it worked perfectly !!!!

I appreciate your help.

Steve