Regel naar beneden

[Elementz]

Ik voer data in via een formulier.
Dit lukt goed maar hierna moet hij een complete regel invoegen.
Bij mij schuift de kolom een regel naar beneden.

Hier is mijn code:

Private Sub cbOK_Click()
Application.ScreenUpdating = False

Application.Goto Reference:="server"
Selection.Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Selection.Offset(0, 3).Select
ActiveCell.Value = ListBox1.Value
Selection.Offset(0, -2).Select
ActiveCell.FormulaR1C1 = "naam"
Selection.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = ":"
Unload Me
Application.ScreenUpdating = True
End Sub

Iemand enig id hoe ik dit moet aanpakken?

**** IS OPGELOST DUS MAG OP SLOT *****

 

[Wigi]

Zoiets?

Private Sub cbOK_Click()
    Application.ScreenUpdating = False

    With Range("server").Offset(1)
        .EntireRow.Insert
        .Offset(-1).Resize(, 3).Value = Array("naam", ":", ListBox1.Value)
    End With
    
    Unload Me
    Application.ScreenUpdating = True
End Sub

Wigi