A Sub Gomb9_Kattintás() makróban a Range("A12:AD65000").Select sor helyett
ezt írd:

Range("A12").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

Akkor azt a területet jelölöd ki rendezésre, amelyik adatokat tartalmaz, nem lesznek üres sorok.

Lehet, hogy Gavriel nem erre gondolt, én nem látok Do-Loop ciklust.