Нужен макрос копирующий строки - VBA

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

Привет! подскажите макрос который мог бы скопировать строки из листа1 к примеру с ячейками содержащие "ДОМА" из столбца H и "1,05" из столбца I .cкопировать строки содержащие в себе именно одновременно оба!!! этих условия,в лист2 начиная с ячейки A5...фильтром могу их отбирать и перекопировать вручную но это будет сложно в дальнейшем если массив данных будет большим,поэтому важен макрос.Пример файла есть

Решение задачи: «Нужен макрос копирующий строки»

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

                            Sub tt()
    Dim c As Range, t1$, t2$, i&
 
    i = 4
    t1 = [h4]
    t2 = [i4]
 
    For Each c In Sheets(1).[h30].CurrentRegion.Cells
        If Trim(c) = t1 Then
            If Trim(c.Offset(, 1)) = t2 Then
                i = i + 1
                c.EntireRow.Copy Cells(i, 1)
            End If
        End If
    Next
 
End Sub
                        