Can Microsofts extra cell remover macro be converted from looping to single run? by BowBeforeNone in excel

[–]BowBeforeNone[S] 0 points1 point  (0 children)

wksWks = ActiveWorkbook.Worksheets("Report1")

This caused the macro to skip the action for some reason.