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

Question

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

Sub saca()

Dim intPasteRow As Integer
intPasteRow = 2
Dim ceva As Range
Dim FirstAddress As String
Dim intRow As Integer

Sheets("Sheet2").Select
Columns("A:AV").Select
On Error Resume Next
Set ceva = Selection.Find(What:="m762", After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=True, SearchFormat:=True).Activate
If Not ceva Is Nothing Then
    FirstAddress = ceva.Address
    Do
        Set ceva = Selection.FindNext(ceva).Activate
    Loop While Not ceva Is Nothing And ceva.Address <> FirstAddress
End If

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

Sheets("Sheet1").Select
ActiveSheet.Paste

End Sub

Пока что он ищет «m762» в Sheet2, но копирует только первую строкус ячейкой "m762" вместо выбора всех из них ... Я не могу найти способ сделать так, чтобы она выделяла все строки с "m762" в них