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

Формулировка задачи:

Ребята что в этом коде нужно изменить чтобы он мог все данные в ячейках из Листа1 в пределах 22 столбца ,а количество строк без ограничения, перенести на Лист2.и главное мог все цветные ячейки Листа1 так же окрасить и на Листе2 после копирования.

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

Решение задачи: «Изменить макрос переноса данных с листа на другой лист»

textual
                            Листинг программы 
                        

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