With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
With Worksheets("Data (Daily)")
Rowcount = .Range("A" & .Rows.Count).End(xlUp).Row + 1
For i = 1 To 8
.Cells(Rowcount, i).Value = Me("TextBox" & i).Value
Next
.Cells(Rowcount, 9).Value = Me.ComboBox1.Value
.Cells(Rowcount, 10).Value = Me.ComboBox2.Value
For i = 11 To 15
.Cells(Rowcount, i).Value = Me("TextBox" & i - 2).Value
Next
.Cells(Rowcount, 16).Value = ComboBox3.Value
.Cells(Rowcount, 17).Value = ComboBox4.Value
.Cells(Rowcount, 18).Value = TextBox14.Value
.Cells(Rowcount, 19).Value = TextBox15.Value

End With


Call resetForm
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With



End Sub

I get an error message (424).