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

0 vote269 views1 answer
Putting marquee in vb.net
VBA
0 vote298 views1 answer
Vba collection contains
VBA
0 vote274 views1 answer
Vbnet dynamically change excel sheet name
VBA
4 votes283 views1 answer
Excel vba how to get a range's full address including sheet name
VBA
0 vote305 views1 answer
Iterate all file in a folder vba
VBA
0 vote292 views1 answer
Excel vba remove formatting from cell
VBA
0 vote295 views1 answer
Vba excel parser xml
VBA
0 vote304 views1 answer
Excel vba paste all to each sheet in workbook
VBA
-1 vote260 views1 answer
System.Data.OleDb.OleDbException: 'No value given for one or more required parameters.'
VBA
8 votes317 views1 answer
Excel vba make a short integer from two bytes
VBA