autoudfyld i flere lag??

Kør denne makro, for hver bogstav, du ønsker indsat. Du skal stå i den celle, hvor det første bogstav skal skrices, fx C1.

Sub FyldNed()
    Dim Afstand As Integer
    Dim Antal As Long
    Dim Indhold As Variant
   
    Afstand = InputBox("indtast hvor mange rækker der skal være mellem hvert bogstav/tal")
    Antal = InputBox("den sidste række, der skal udfyldes")
    Indhold = InputBox("indtast det, der skal udfyldes med")
    If IsEmpty(ActiveCell) Then
        ActiveCell.Value = Indhold
    End If
    For i = 1 To Antal / Afstand Step 1
        If ActiveCell.Offset(Afstand * i, 0).Row > Antal Then Exit For
        If IsEmpty(ActiveCell.Offset(Afstand * i, 0)) Then
            ActiveCell.Offset(Afstand * i, 0).Value = Indhold
        End If
    Next i
End Sub

Den er lidt primitiv og trænger blandt andet til fejlhåndtering, men den løser opgaven.