Числовая последовательность, начинающаяся в ячейке <> A1

Question

Хотите, чтобы последовательность запускалась в ячейке A4. так что A4 равно 1, A5 равно 2 и т. д. A1004 = 1004

Попытка изменения [Range («A» и I) ..] на [Range («A4» и I) ..] Попробовал поменять я = 4

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim I As Integer
    I = 1
    Application.EnableEvents = False
    For I = 1 To 1000
        Range("A" & I).Value = I
    Next
    Range("A1010").Value = ""
    Application.EnableEvents = True

End Sub

Answer 1

Sub Worksheet_Change(ByVal Target As Range)
Dim I As Integer
Set startRng = Cells(4, 1)

Application.EnableEvents = False
For I = 0 To 999
    startRng.Offset(I, 0) = I
Next
Range("A1010").Value = ""
Application.EnableEvents = True

End Sub