Private Sub CommandButton1_Click()
Dim NextRow As Long
Dim Entryl As String, Entry2 As String, Entry3 As String, Entry4 As String, Entry5 As String, Entry6 As String
Dim Entry7 As String, Entry8 As String, Entry9 As String, Entry10 As String, Entry11 As String

Do
NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Entryl = InputBox("Вводим номер заказа")
If Entryl = "" Then Exit Sub
Entry2 = InputBox("Вводим дату")
If Entry2 = "" Then Exit Sub
Entry3 = InputBox("Вводим причину вызова исполнителя")
If Entry3 = "" Then Exit Sub
Entry4 = InputBox("Вводим дату проведения работ")
If Entry4 = "" Then Exit Sub
Entry5 = InputBox("Вводим количетсво сотрудников исполнителя")
If Entry5 = "" Then Exit Sub
Entry6 = InputBox("Вводим должность")
If Entry6 = "" Then Exit Sub
Entry7 = InputBox("Вводим ФИО")
If Entry7 = "" Then Exit Sub
Entry8 = InputBox("Вводим дату ваыхода сотрудника/ время работы")
If Entry8 = "" Then Exit Sub
Entry9 = InputBox("Вводим количество часов")
If Entry9 = "" Then Exit Sub
Entry10 = InputBox("Вводим дату")
If Entry10 = "" Then Exit Sub
Entry11 = InputBox("Выплненные работы")
If Entry11 = "" Then Exit Sub
Cells(NextRow, 1) = Entryl
Cells(NextRow, 2) = Entry2
Cells(NextRow, 3) = Entry3
Cells(NextRow, 4) = Entry4
Cells(NextRow, 5) = Entry5
Cells(NextRow, 6) = Entry6
Cells(NextRow, 7) = Entry7
Cells(NextRow, 8) = Entry8
Cells(NextRow, 9) = Entry9
Cells(NextRow, 10) = Entry10
Cells(NextRow, 11) = Entry11
Loop

End Sub