Excel vba last row of range

Dim rRange As Range
Dim rDuplicate As Range

Set rRange = ActiveSheet.UsedRange
lFirstRow = rRange.Row
lLastRow = rRange.Rows.Count + rRange.Row - 1
lFirstColumn = rRange.Column
lLastColumn = rRange.Columns.Count + rRange.Column - 1
' New reference to current range (can be truncated)
Set rDuplicate = Range(Cells(lFirstRow, lFirstColumn), _
      Cells(lLastRow, lLastColumn))

Similar codes

1 vote185 views2 answers
Excel vba password protect
VBA
0 vote170 views1 answer
Vb net dgv doesn't keep currency format
VBA
0 vote178 views1 answer
Move bindingnavigator vb
VBA
0 vote188 views1 answer
Vba min
VBA
0 vote172 views1 answer
Find days in month vba
VBA
0 vote235 views1 answer
Excel vba add reference programmatically
VBA
0 vote181 views1 answer
Excel R1C1 mode
VBA
0 vote175 views1 answer
Excel vba range contains
VBA
0 vote167 views1 answer
Excel vba join variant array
VBA
0 vote181 views1 answer
Vba exit while
VBA