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 vote123 views1 answer
Change the first item in a queue vb.net
VBA
0 vote127 views1 answer
Vbnet line chart showing extra space
VBA
0 vote133 views2 answers
Vb.net include quotes in string
VBA
22 votes260 views1 answer
Xl vba check for folder
VBA
0 vote126 views1 answer
How to get the value of optionbutton in vba
VBA
0 vote116 views1 answer
Excel vba ternary
VBA
1 vote138 views2 answers
Excel vba password protect
VBA
-1 vote130 views1 answer
How to correct a number to 2 decimal places in vba
VBA
31 votes246 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote132 views1 answer
Remove series name from legendvbnet
VBA