Return row if criteria is met (VBA code to send email containing row automatically)

[asantos2015]

Hello guys,

I got the table:

A B C D E
XX YY ZZ 00 ZZ

If Column E shows "Replace", then send the entire row in the body of an email. I got the email part resolved, but now this part:

Set rngX = ActiveWorkbook.ActiveSheet.Range("a7:E8000").SpecialCells(xlCellTypeVisible)

For Each cel In rngX
If cel.Value = "Repor" Then

It's sending the entire table, though and it's 11MB large!Thanks a million!