Rows(arguments)???

D

dabith

Hey all

another question

how do I use the Lastrow variable in the Rows argument???

Dim Lastrow As Long
With ActiveSheet
Lastrow = .UsedRange.Rows.Count + .UsedRange.Cells(1).Row - 1

Rows("1:Lastrow").Select
Selection.Copy


Thank
 
N

Norman Jones

Hi Dabith ,

Change:
Rows("1:Lastrow")
to:
Rows("1:" & LastRow).

Also, you are missing an End With and there is no need to select your range.
Therefore, your code could read :

With ActiveSheet
LastRow = (.UsedRange.Rows.Count + .UsedRange.Cells(1).Row - 1)
End With
Rows("1:" & LastRow).Copy
 
Top