Private Sub CommandButton4_Click() 'Код для сохранения данных на лист Общий журнал заявок для УПТК
q = MsgBox("Вы уверены что хотите сохранить данные в журнал заявок???", vbOKCancel)
If q = vbCancel Then Exit Sub 'Сообщения для утверждения ваших действий
     
    Dim sh1 As Worksheet, sh 'код копирования нужных данных в нужные нам листы
    Dim s As Long, s2 As Long
    Set sh1 = Worksheets("Подтверждение заявок для УПТК")
    s = sh1.Cells(Rows.Count, 1).End(xlUp).Row
    
    'Для листа "План Факт по заявке"
    With Worksheets("План Факт по заявке")
        'вычисляем последнюю строку на листе +1
        s2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        'копируем...
        .Range("A8:E67" & s2).Resize(s, 5) = sh1.Range("A8:E67" & s).Value
        .Range("G8:G67" & s2).Resize(s) = sh1.Range("F8:F67" & s).Value
        .Range("J8:J67" & s2).Resize(s) = sh1.Range("I8:I67" & s).Value
        .Range("A8:L67").Replace "#N/A", ""
        
    'Для листа "Отказы от поставок"
    With Worksheets("Отказы от поставок")
        'вычисляем последнюю строку на листе +1
        s2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        'копируем...
        .Range("A8:E67" & s2).Resize(s, 5) = sh1.Range("A8:E67" & s).Value
        .Range("G8:G67" & s2).Resize(s) = sh1.Range("F8:F67" & s).Value
        .Range("H8:H67" & s2).Resize(s) = sh1.Range("G8:G67" & s).Value
        .Range("A8:L67").Replace "#N/A", ""
    End With
    
    
'Код для сохранения данных в общий журнал реестра
    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 = 8
    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 = 1 To 12
        shSheett.Cells(lLastRow, X + 1).Value = shSheetf.Cells(i, X).Value
        Next X
            'Изменяем переменную "lLastRow",
            'чтобы данные уже вставлять в следующую строку.
            lLastRow = lLastRow + 1
        End If
    Next i
            Range(Cells(8, 1), Cells(lEndSheet, 67)).ClearContents
    MsgBox "ДАННЫЕ ПЕРЕНЕСЕНЫ НА ЛИСТ ЖУРНАЛА ЗАЯВОК..."

End With
End Sub