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

2 votes235 views1 answer
Vba round number
VBA
4 votes172 views1 answer
Excel vba determine number of elements in an array
VBA
1 vote165 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA
0 vote193 views1 answer
Group controls programmatically vb
VBA
0 vote181 views1 answer
VBA Sleep Snippet
VBA
-1 vote168 views1 answer
For i in range vba
VBA
0 vote184 views1 answer
Search combobox items vb.net
VBA
1 vote161 views1 answer
Vba compile error object required
VBA
0 vote166 views1 answer
Open application from vbnet
VBA
0 vote167 views1 answer
Get current year vb
VBA