Marco that will Find, Replace cell with color, filter, copy paste, loop

[Jazzyladie]

Hi,

In need of some assistance, I need a macro that will search a column(M) of email addresses one by one, compare to another column(H)(find all instances) replace cell with color, filter the results on only the cells with color, take columnA from the results and paste to a second sheet within the same workbook. This process should repeat until the last entry email address entry on column(M)

So far I have this:
Columns("H:H").Select
Selection.Replace What:="email@address.com", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=True
ActiveSheet.Range("$B$1:$K$36146").AutoFilter Field:=7, Criteria1:=RGB(255 _
, 255, 0), Operator:=xlFilterCellColor
ActiveWindow.SmallScroll Down:=-69
Columns("A:A").Select
Selection.Copy
Sheets("Sheet1").Select
LastCol = Sheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column + 1
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Select
Sheets("mail_list2.4_2.5").Select
ActiveSheet.Range("$B$1:$K$36146").AutoFilter Field:=7

Can the code also ignore the the email address if it doesn't find results and go to the next row in the same column?

Thanks in advance for the assistance,
Sharnell