Macro copies the same row instead of going to the next one

[Ossian13]

Hello guys,

im using this code

Sub etc

xLastRow = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To xLastRow
    Columns("AO:AT").Select
    Selection.Find(What:="Michael", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
   ActiveCell.EntireRow.Copy Sheets("OnlyV").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    
   Next
end sub

The code is much bigger but only this part is the trouble. So, my code looks for the name "Michael" starting from column AO to column AT, and where he finds this string it copies the entire row to another sheet. But the issue is that the macro copies the same row over and over again instead of going to the next one. Could anyone tell me what is the missing part?

Thank you,
Ossian.

 

[Joe4]

Duplicate: https://www.mrexcel.com/forum/excel-questions/1034549-next-empty-row.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).