"Sheets("Приложение_1_К_Заявлению").Range("B9:AB9").AutoFill Destination:=Sheets("Приложение_1_К_Заявлению").Range(Cells(StartRow, StartCol), Cells(Endrow, EndCol)).FillDown, Type:=xlFillDefault"

Function ГенерацияКлюча() As String
Static idn#, temp#
temp = Fix(Now * 100000#)
    If idn < temp Then
      idn = temp: ГенерацияКлюча = UserName & "PRDX" & temp
    Else
      idn = idn + 1: ГенерацияКлюча = UserName & "PRDX" & idn
    End If
End Function

Private Sub CommandButton2_Click()
        
        If Not TypeName(Selection) = "Range" Then Exit Sub
        Dim lr&, wb As Workbook, lb As Workbook, i As Long
        With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
        Set wb = GetObject("Путь к книге в которую заносятся данные из рабочей книги\Отчет.xlsm")
        Set lb = ThisWorkbook
        lr = wb.Sheets(1).Cells(Rows.Count, 5).End(xlUp).Row
        For i = 1 To Range("таблица1").Rows.Count
            If Range("Таблица1").Cells(i, 2).Value = "" Then
                MsgBox "Удалите пустые строки", vbCritical
                Exit Sub
            End If
        Next
        For i = 1 To Range("Таблица1").Rows.Count
            a = lb.Sheets(1).Cells(i + 4, 11).Value
            For j = 47 To wb.Sheets(1).Cells(Rows.Count, 5).End(xlUp).Row
                b = wb.Sheets(1).Cells(j, 11).Value
                If a = b Then
                    MsgBox "Найдены дубликаты!" & vbNewLine & "Проверьте введенные данные.", vbCritical
                    Exit Sub
                End If
            Next
        Next
        Range("Таблица1").Copy
        wb.Sheets(1).Cells(lr + 1, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        wb.Close (True)
        With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
        Set wb = Nothing: Set lb = Nothing

Private Sub CommandButton2_Click()
        
        If Not TypeName(Selection) = "Range" Then Exit Sub
        Dim lr&, wb As Workbook, lb As Workbook, i As Long
        With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
        Set wb = GetObject("\\fs-virt\ДИС\УпрСпец\Отчеты_2019\Отчеты\NEW.xlsm")
        Set lb = ThisWorkbook
        lr = wb.Sheets(1).Cells(Rows.Count, 5).End(xlUp).Row
        For i = 1 To Range("Таблица1").Rows.Count
        If Range("Таблица1").Cells(i, 2).Value = "" Then
            MsgBox "УДАЛИТЕ ПУСТУЮ СТРОКУ, ИЛИ ВНЕСИТЕ ДАННЫЕ!", vbCritical
            Exit Sub
        End If
    Next i
        Range("Таблица1").Copy
        wb.Sheets(1).Cells(lr + 1, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        wb.Close (True)
        With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
        Set wb = Nothing: Set lb = Nothing
End Sub

        If Not TypeName(Selection) = "Range" Then Exit Sub
        Dim lr&, wb As Workbook, lb As Workbook, i As Long
        With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
        Set wb = GetObject("С:NEW.xlsm")
        Set lb = ThisWorkbook
        lr = wb.Sheets(1).Cells(Rows.Count, 5).End(xlUp).Row
        Range("Таблица1").copy
        wb.Sheets(1).Cells(lr + 1, 1).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        wb.Close (True)
        With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
        Set wb = Nothing: Set lb = Nothing

        If Not TypeName(Selection) = "Range" Then Exit Sub
        Dim lr&, wb As Workbook, lb As Workbook
        With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: End With
        Set wb = GetObject("C:\\NEW.xlsm")
        Set lb = ThisWorkbook
        lr = wb.Sheets(1).Cells(Rows.Count, 5).End(xlUp).Row
        Range("Таблица1").Select
        Selection.EntireRow.Copy wb.Sheets(1).Cells(lr + 1, 1)
        wb.Close (True)
        With Application: .EnableEvents = True: .DisplayAlerts = True: .ScreenUpdating = True: End With
        Set wb = Nothing: Set lb = Nothing