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"

    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