Copying Data to another sheet

  • Thread starter Thread starter Steve
  • Start date Start date
S

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
 
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
 
Thanks Tom, when I changed the last line to
rng.entireRow.copy destination:=rng1

it worked perfectly !!!!

I appreciate your help.

Steve
 
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
Click to expand...
 
Back
Top