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

13 votes286 views2 answers
Vba write text file
VBA
0 vote144 views1 answer
Vba timestamp -- milliseconds
VBA
0 vote139 views1 answer
Vba word pdf table to excel
VBA
0 vote162 views1 answer
VBA Sort RossetaCode
VBA
1 vote141 views2 answers
Vba remove first 2 characters from string
VBA
0 vote156 views1 answer
Vbnet line chart showing extra space
VBA
5 votes151 views1 answer
Excel vba high word from Long Integer
VBA
0 vote153 views1 answer
WGET FTP
VBA
0 vote153 views1 answer
Make your computer talk vbscript
VBA
0 vote189 views1 answer
Set datetimepicker value to null vb
VBA