Rows("4:4").Insert Shift:=xlDown

her er hele koden

Private Sub CommandButton1_Click()  ' OK knap

Rows("4:4").Insert Shift:=xlDown

Worksheets("Database").Range("A4") = UserForm1.ComboBox1.Value
Worksheets("Database").Range("C4") = UserForm1.TextBox10.Value
Worksheets("Database").Range("B4") = CDate(UserForm1.TextBox1.Value)
Worksheets("Database").Range("D4") = UserForm1.TextBox9.Value
Worksheets("Database").Range("E4") = UserForm1.ComboBox2.Value

UserForm1.Hide
Sheets("K&L").Select
ActiveWorkbook.Save
Sheets("K&L").Select
UserForm1.TextBox1 = Date
UserForm1.TextBox10 = ""
UserForm1.TextBox9 = ""
UserForm1.TextBox11 = ""
ComboBox1.SetFocus
Application.RUN "Statistik.xls!LoadForm"
ComboBox1.ListIndex = 0
End Sub

Har du prøvet med

Worksheets("ark2").Rows("4:4").Insert Shift:=xlDown

Det er ikke testet.

Du skal vælge eller aktivere dit ark først, f.eks.
Sheets("K&L").Select

Det er den nu, og den virker, Men den indsætter rækket det sted på det andet ark, hvor markøren tilfældigvis står. Det skal nok styres lidt mere.

Pladder, det er bare mig der er "blind". Den indsætter en ny række fire hver gang som forventet. Jeg havde bare set den som 5, 6 osv. Men det var fordi der var flere tomme.

Worksheets("ark2").Rows("4:4").Insert Shift:=xlDown

jkrons >> :-D ... en ting ved jeg den er virker Worksheets("Database").Rows("4:4").Insert Shift:=xlDown

mange tak

Velbekomme!