Private Sub CommandButton4_Click() 'Код для сохранения данных заявки на лист Журнала заявок
q = MsgBox("Вы уверены что хотите сохранить данные в журнал заявок???", vbOKCancel)
If q = vbCancel Then Exit Sub 'Сообщения для утверждения ваших действий
    Dim shSheetf As Worksheet
    Dim shSheett As Worksheet
' Dim lStartSheet_("Заявка на транспорт БЕТОМАКСУ") As Long, lEndSheet_("Заявка на транспорт БЕТОМАКСУ") As Long
    Dim lLastRow As Long
    Dim i As Long
    'Даём листам имена "("Заявка на транспорт БЕТОМАКСУ")" и "shSheet_("транспортный журнал")",
    'чтобы было удобнее писать код.
    Set shSheetf = Worksheets("Заявка на транспорт БЕТОМАКСУ")
    Set shSheett = Worksheets("транспортный журнал")
    lStartSheet = 10
    lEndSheet = shSheetf.Cells(Rows.Count, 1).End(xlUp).Row
    'Указываем, с какой строки начать вставлять данные на второй лист.
    lLastRow = shSheett.Cells(Rows.Count, 2).End(xlUp).Row + 1
    'Двигаем по первому листу по столбцу "A".
For i = lStartSheet To lEndSheet
        If Not shSheetf.Cells(i, 2).Value = Empty Then
            'Перносим данные на второй лист.
            shSheett.Cells(lLastRow, 2).Value = shSheetf.Cells(i, 1).Value
            For X = 2 To 11
        shSheett.Cells(lLastRow, X + 1).Value = shSheetf.Cells(i, X).Value
        Next X
            'Изменяем переменную "lLastRow",
            'чтобы данные уже вставлять в следующую строку.
            lLastRow = lLastRow + 1
        End If
    Next i
            Range(Cells(6, 1), Cells(lEndSheet, 12)).ClearContents
    MsgBox "ДАННЫЕ ПЕРЕНЕСЕНЫ НА ЛИСТ ЖУРНАЛА ЗАВОК..."
End Sub