Excel vba first row 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 vote127 views1 answer
Vba string
VBA
0 vote177 views1 answer
Excel vba delete columns in range
VBA
0 vote116 views1 answer
Excel protect cells with formulas
VBA
1 vote143 views1 answer
Vba loop through files in folder
VBA
0 vote127 views1 answer
Vbscript remove spaces from string
VBA
0 vote133 views1 answer
Excel vba linter
VBA
1 vote130 views1 answer
Highlight selected cell in excel vba
VBA
5 votes146 views1 answer
Xlvba double quotes in string literal
VBA
2 votes133 views1 answer
Excel vba date to string conversion
VBA
0 vote133 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA