Zellen mit Leerzeichen auffüllen

Ich pack das Makro einfach nicht :-(

Ich möchte jede Zeile einer Spalte mit X Leerzeichen so auffüllen das alle am Ende die gleiche Länge haben, um eine feste Spatenbreite dann zur Ausgabe nach DOS Text zu erreichen. Hat da jemend schon ein funktionierendes Makro was er kurz posten könnte? Vielen Dank Klaus