Excel vba last column in 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

5 votes252 views1 answer
Excel vba get user selected range
VBA
0 vote231 views1 answer
Vba type
VBA
0 vote215 views1 answer
Add items to combobox vb.net
VBA
1 vote242 views1 answer
Sort using vba
VBA
6 votes236 views1 answer
Excel vba check if a string only contains alpha characters
VBA
0 vote221 views1 answer
Vbnet check if number is even or odd
VBA
-1 vote220 views2 answers
How close excel through visual basic
VBA
0 vote248 views1 answer
Excel vba ternary
VBA
12 votes495 views1 answer
Excel vba write string to text file
VBA
5 votes247 views1 answer
Excel vba first byte from INTEGER
VBA