isn't this much simpler ? let me demonstrate by giving you my workbook so u can take a look at it..
Well, it appears to work, which is always a good thing

I don't find it any simpler or particularly well written, but that doesn't mean that you can't use it

Things like Range("A65000") and just Cells(...) not tied to a specific worksheet (e.g. Worksheets("Data").Cells (1,2)) I find will cause trouble later or that the macro is old and written in Excel 2003 originally

Why would you want 3 steps instead of just 1?