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

1 vote183 views1 answer
Vba listindex select multiple items vba
VBA
27 votes473 views2 answers
Vba check if file exists
VBA
12 votes477 views1 answer
Excel vba write string to text file
VBA
1 vote201 views1 answer
Vba delete array element
VBA
0 vote207 views1 answer
Vba declare 64-bit ptrsafe
VBA
0 vote246 views1 answer
Vba foreach 2d array
VBA
0 vote204 views1 answer
Get current url vb.net
VBA
1 vote209 views2 answers
Vba find last row in range for certain criteria
VBA
0 vote214 views1 answer
Vb test if reference is null
VBA
-1 vote209 views1 answer
VBA check if a cell contains a letter or string
VBA