Изменить макрос переноса данных с листа на другой лист

Sub Копир()
Dim a
With Sheets("Лист1")
a = .Range(.Cells(27, 1), .Cells(Cells(.Rows.Count, 1).End(xlUp).Row, 22)).Value
End With
 
With Sheets("Лист2")
.[a27].Resize(UBound(a, 1), UBound(a, 2)).Value = a
End With
 
End Sub

Sub Копир_1()
With Sheets(2)
Range(Cells(27, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 22)).Copy Destination:=.[a27]
.Select
End With
End Sub

Sub Копир_2()
Application.DisplayAlerts = False
With Sheets(2)
Range(Cells(27, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 22)).Copy Destination:=.[a27]
.Select
End With
Application.DisplayAlerts = True
End Sub

Sub Копирование_строк_по_критериям_на_Лист3 ()
    Dim X As Range, t1$, t2$, t3$, t4$, i&
 
    i = 27
    t1 = [b27]
    t2 = [f27]
    t3 = [h27]
    t4 = [i27]
    For Each X In Intersect(Sheets(1).UsedRange, Sheets(1).Columns(2)).Cells
        If Trim(X) = t1 Then
            If Trim(X.Offset(, 4)) = t2 Then
                If Trim(X.Offset(, 6)) = t3 Then
                    If Trim(X.Offset(, 7)) = t4 Then
                i = i + 1
                X.EntireRow.Cells(1).Resize(1, 22).Copy Cells(i, 1)
            End If
        End If
    End If
End If
Next
 End Sub

Sub Копирование_строк_по_критериям_на_Лист4 ()
    Dim c As Range, t1$, t2$, t3$, t4$, i&
 
    i = 27
    t1 = [b27]
    t2 = [g27]
    t3 = [h27]
    t4 = [i27]
    For Each c In Intersect(Sheets(1).UsedRange, Sheets(1).Columns(2)).Cells
        If Trim(c) = t1 Then
            If Trim(c.Offset(, 5)) = t2 Then
                If Trim(c.Offset(, 6)) = t3 Then
                    If Trim(c.Offset(, 7)) = t4 Then
                i = i + 1
                c.EntireRow.Cells(1).Resize(1, 22).Copy Cells(i, 1)
            End If
        End If
    End If
End If
Next
 End Sub

Sub  Копирование_строк_по_критериям_на_..... ()
Application.DisplayAlerts = False
......
......
Application.DisplayAlerts = True
End Sub