Why is macro so effing slow???

On my "oldie" such results (for 12046 rows):

1. protonLeah 3.71
2. JohnTopley 1.4
3. bebo 1.265625
(but run-time error 424 (object required) on ".ClearContents ' delete column ZZ")
4a. Sintek_1 0.52
4b. Sintek_2 0.27
(but it returns 1+6=7 rows for "6;12;8;11;16;0;0")
5. Ordinary loops with "If" in RAM 0.15