BadgerRoad
Active Member
- Joined
- Dec 2, 2005
- Messages
- 294
- Office Version
- 365
- Platform
- Windows
I am trying to copy a range from one sheet to another. I'm getting an error on the Range.Copy command. I can't figure out what is wrong.
Would appreciate some help. Thanks.
Sub CopyDirftwoodNames()
Dim last_row As Long
Dim Rng As Range
last_row = Worksheets("Mail Labels List").Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Sheets("Addl Driftwood Names").UsedRange
Set Rng = Rng.Offset(1).Resize(Rng.Rows.Count - 1)
Range("Rng").Copy _
Destination:=Worksheets("Mail Labels List").Cells(last_row + 1, "A")
End Sub
Would appreciate some help. Thanks.
Sub CopyDirftwoodNames()
Dim last_row As Long
Dim Rng As Range
last_row = Worksheets("Mail Labels List").Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Sheets("Addl Driftwood Names").UsedRange
Set Rng = Rng.Offset(1).Resize(Rng.Rows.Count - 1)
Range("Rng").Copy _
Destination:=Worksheets("Mail Labels List").Cells(last_row + 1, "A")
End Sub