VBA cells auto-increment

Простановка нумерации и обрисовка границ в ячейках по первому столбцу:

Sub m_1()
Dim oCell As Range
Dim LastRow As Long
Dim i As Integer
Columns("A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' добавить новую колонку
Columns("A").NumberFormat = "General"
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For Each oCell In Range("A3:" & "A" & LastRow)
    oCell.Errors(xlNumberAsText).Ignore = True
    i = i + 1
    oCell.FormulaR1C1Local = i
    Range(oCell, oCell).Borders(xlInsideVertical).Weight = xlThin
    Range(oCell, oCell).Borders(xlEdgeLeft).Weight = xlThin
    Range(oCell, oCell).Borders(xlInsideHorizontal).Weight = xlThin
    Range(oCell, oCell.Offset(0, 0)).Borders(xlEdgeBottom).Weight = xlThin
Next oCell
End Sub