Макрос Excel для поиска по ключевому слову и копирования всей строки на другой лист

Question

У меня есть лист Excel, содержащий около 50 тыс. Строк, и мне нужен макрос для поиска ячейки на этом листе, и если он находит его для копирования всей строки на другой лист, моя проблема заключается в том, что ключевое слово может быть в нескольких строкахтак что если есть 4 ячейки с этим ключевым словом, мне нужно скопировать все 4 строки и вставить их в другой лист

Dim intPasteRow As Integer
intPasteRow = 2

Sheets("Sheet2").Select
Columns("A:AV").Select
On Error Resume Next
Selection.Find(What:="m12", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=True, SearchFormat:=True).Activate
If Err.Number = 91 Then
    MsgBox "ERROR: 'Keyword' could not be found."
    Sheets("Sheet1").Select
    End
End If

Dim intRow As Integer
intRow = ActiveCell.Row
Rows(intRow & ":" & intRow).Select
Selection.Copy

Sheets("Sheet1").Select
ActiveSheet.Paste

End Sub
Sub saci()

Dim rng As Range
Set rng = Range(ActiveCell, ActiveCell.Offset(10000, 0))
rng.EntireRow.Select
With Selection.EntireRow
.Cut
.Offset(.Rows.Count + 1).Insert
.Select
End With
Range("A4").Select

End Sub

, пока он не найдет первую ячейку "m12" в Sheet2 и скопирует всю строкуна листе 1, как мне заставить его продолжить поиск после нахождения «m12» и скопировать все строки с «m12» в них вместо только первой?