You might need a line like

If ActiveCell = "Report Total" then Exit Do