code sequence works manually but not as a macro?

@Joli

Starting with you endeavour I tried to do the same: all 3 criteria in 1 array.
It turns out to be impossible. I assume the rule is: an array to filter values can't contain wildcards ( I didn't know but thanks to you I/yuo.we stumbled upon it.
BTW my suggesstions are suggestions only: no intention to critisize anyone else. The more options the more choice.
Gegroet,

@mal.
If you delete the three empty rows, Row1, Row2 and Row5, first it works like a well oiled machine. (TestSource Workbook)
or you could add the following line as the first line of your code (only if the same rows are empty all the time)

Code:

---

Range("1:1, 2:2, 5:5").Delete

---