Move userform TextBox entries to cells on a sheet

My question is simple. I have a CommandButton on a worksheet named 'Workup' that, when clicked, presents a userform with 15 textboxes (TextBox1 through TextBox15). I have CommandButton1 on the userform also. When I click CommandButton1, I want the value in the textboxes to be placed in cell A1 thru A15 on the sheet named 'Invoice". I think it's just a repeat of the same line of code for each of the 15 TextBoxes. Once the cells on the sheet 'Invoice' are populated, I want to print the sheet 'Invoice' on the default printer. Then, return to the original sheet named 'Workup' and close the userform. The reason I'm using a userform is because the CommandButton does several other things also. Thanks in advance.

Without seeing your workbook and knowing where you are storing values, how about this sample. Place the code behind the form.

Private Sub cmbAdd_Click()
    'next empty cell in column A
    Set c = Range("A65536").End(xlUp).Offset(1)
    Application.ScreenUpdating = False    'speed up, hide task
    'write userform entries to database
    With Me
        c.Value = .TextBox1.Value
        c.Offset(1).Value = .TextBox2.Value
        c.Offset(2).Value = .TextBox3.Value
        c.Offset(3).Value = .TextBox4.Value
        'clear the form
        ClearControls
    End With
    Application.ScreenUpdating = True
End Sub

No problem, I don't see your workbook.

Try this...