Sheets("Вставка").Select
Cells.Select
Selection.ClearContents

Sheets("Вставка").Cells.ClearContents

Windows("Шаблон для вставки").Activate 'Активирует книгу "Шаблон для вставки"
    Sheets("Вставка").Select 'Переходит на лист "Вставка"
    Cells.Select 'Выделяетт все ячейки
    Selection.ClearContents 'Очищает все Выделенные ячейки
    Sheets("Знач").Select 'Переходит на лист "Знач"
    ActiveSheet.Range("$A$1:$D$1").AutoFilter Field:=1, Criteria1:="Значение_1" 'Применяет фильтр
    ActiveSheet.AutoFilter.ApplyFilter 'Повторно применяет фильтр
    ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(12).Copy Sheets("Вставка").Range("A1") 'копирует отфильтрованные значения на лист "Вставка"
    Sheets("Вставка").Select  'Переходит на лист "Вставка"
    Range("C1:D1").Select 'Выделяет диапазон "C1-D1"
    Selection.Copy 'Копирует Выделенное
Windows("Отчет по работе компаний").Activate 'Активирует книгу "Отчет по работе компаний"
    Sheets("Значение_1").Select 'Переходит на лист "Значение_1"
    Range("d65536").End(xlUp).Offset(1).PasteSpecial xlPasteValues 'Вставляет скопированный текст в последнюю не заполненную ячейку в столбце "D"

ActiveSheet.AutoFilter.Range.Offset(1).SpecialCells(12).Copy Sheets("Лист2").Range("A1")

Sub Тест_1()
'
' Тест_1 Макрос
'

'
    ActiveSheet.Range("$A$1:$E$91").AutoFilter Field:=1, Criteria1:= _
        "Значение_2"
    Range("E20:E24").Select
    Selection.Copy
End Sub

Sub Тест_2()
' Тест_2 Макрос
    Range("e1").Offset(1).Select
    a = Selection.Row
    b = Selection.Column
    lr = Cells(Rows.Count, b).End(xlUp).Row
    If lr < a + 4 Then c = lr Else c = a + 4
    Range(Cells(a, b), Cells(c, b)).Select
    Selection.Copy

End Sub

    ActiveSheet.Range("$A$1:$E$91").AutoFilter Field:=1, Criteria1:= _
        "Значение_1"

    ActiveSheet.Range("$A$1:$E$91").AutoFilter Field:=1, Criteria1:= _
        "R"

Sub макрос1()
'
' макрос1 Макрос
'

'
    Dim l, lr As Long
        l = Range("f65536").End(xlUp).Row
        lr = Range("f65536").End(xlUp).Row + 1
     
    Range("F" & lr).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("F" & lr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Dim l, lr As Long
    l = Range("f65536").End(xlUp).Row
    lr = Range("f65536").End(xlUp).Row + 1
    
    Range(lr).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Sub Copypast_end_stroka()
'
' Copypast_end_stroka Макрос
' Копирует значение в последнюю не заполненую ячейку
'

'
Dim l, lr As Long
    l = Range("a50000").End(xlUp).Range
    lr = Range("a50000").End(xlUp).Range + 1
    Range(lr).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
End Sub

Rows("16:16").Select