Here is a better example, briefly tested, but not fully developed for all of your controls on the form. This should get you going. Note that I am referencing sheet codenames and not worksheet names (matter of preference).
Dim lrow As Long, ws As Worksheet
Select Case Me.CheckBox1.Value
Case True 'Extended Terms
lrow = Sheet4.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Set ws = Sheet4
Case False 'Same Terms
lrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Set ws = Sheet2
End Select
With Me
ws.Cells(lrow, 1) = .Account.Value
ws.Cells(lrow, 2) = .Surname.Value
End With
Bookmarks