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

0 vote299 views1 answer
Excel vba send HTTP POST to server
VBA
0 vote297 views1 answer
Loop through lines in text file vb net
VBA
0 vote279 views1 answer
Remove frist letter from string vbnet
VBA
0 vote284 views1 answer
Excel run macro every 5 minutes
VBA
1 vote301 views1 answer
Excel vba Populating a combobox on a userform from a range of cells
VBA
0 vote295 views1 answer
.net crash app
VBA
0 vote285 views1 answer
Remove series name from legendvbnet
VBA
1 vote281 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote271 views1 answer
Vb window.minimize
VBA
0 vote289 views1 answer
Excel vba round to whole number
VBA