besser ist es, die letzte Spalte über VBA auszulesen und dann entsprechend weiter zu verarbeiten. Der Vorteil ist hier: es könner auch Leerspalten enthalten sein. Die Ermittlung der letzten besetzten Spalte lautet für Zeile 1:
Spalte = ActiveSheet.Cells(1, 1).SpecialCells(xlCellTypeLastCell).Column
Soll ein Zellenbereich abgedeckt werden, so ist der obige Code in eine
Schleife einzubauen.
Entsprechend kann auch die letzte gefüllte Zeile ermittelt werden.
Gruß
Dieter