Excel vba first 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

31 votes277 views1 answer
Vba how to convert a column number into an Excel column
VBA
0 vote149 views1 answer
Remove last 8 characters from string vb
VBA
0 vote148 views1 answer
Vba shape transparent
VBA
0 vote147 views1 answer
How to use if condition in time vba
VBA
0 vote157 views1 answer
Vba simple quote
VBA
1 vote155 views2 answers
Vba string length
VBA
18 votes317 views2 answers
Vba make word from bytes
VBA
0 vote145 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
0 vote137 views1 answer
Excel protect cells with formulas
VBA
0 vote148 views1 answer
Limit combobox to list vba
VBA