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 vote387 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
1 vote318 views1 answer
Vba Remove Case Sensitivity
VBA
4 votes354 views1 answer
Excel vba determine number of elements in an array
VBA
0 vote344 views1 answer
Excel vba current folder
VBA
0 vote345 views1 answer
Quit excel with save changes dialog vb.net
VBA
0 vote357 views1 answer
Vba DisplayGridlines
VBA
0 vote356 views1 answer
Vba timestamp -- milliseconds
VBA
12 votes484 views1 answer
Excel vba write string to text file
VBA
5 votes392 views1 answer
Excel vba get user selected range
VBA
0 vote342 views1 answer
Convert unix to date vba
VBA