indsæt celler i eksisterende kolonne

=INDIREKTE("A"&RUND.OP(RÆKKE()/3;0))

i hvilken række starter dine tal ?

De starter i C1

Prøv med denne makro. Ret A1 til cellen under den, hvor det førstevtal står. Prøv i en kopui af arket først :-)

Sub Gentag2()
    Range("a2").Select
    a = Selection.Offset(-1, 0).Value
    Do Until IsEmpty(ActiveCell)
        Selection.Insert Shift:=xlDown
        ActiveCell.Value = a
        ActiveCell.Offset(1, 0).Rows("1:1").Select
        Selection.Insert Shift:=xlDown
        ActiveCell.Value = a
        ActiveCell.Offset(2, 0).Rows("1:1").Select
        a = Selection.Offset(-1, 0).Value
    Loop
    Selection.Insert Shift:=xlDown
    ActiveCell.Value = a
    ActiveCell.Offset(1, 0).Rows("1:1").Select
    Selection.Insert Shift:=xlDown
    ActiveCell.Value = a
    ActiveCell.Offset(2, 0).Rows("1:1").Select
    a = Selection.Offset(-1, 0).Value
End Sub

Ret A2 skulle der have stået. Og makroen forudsætter, at der ikek er blanke celler bland tallene.

så indsæt denne i D1 og kopier ned
=INDIREKTE("C"&RUND.OP(RÆKKE()/3;0))

Du er jo genial..

Excellent, hvordan får jeg givet dig point?

tak :-)
hvis du markerer box med mit navn og klikker accepter