Habe alles im beigefügten Bild erläutert.
Für jede Hilfe schon mal vielen Dank vorab.
Columns(1).SpecialCells(xlcelltypeformulas, 1).Resize(, 4)
das .SpecialCells entspricht der Menüfunktion START - BEARBEITEN - SUCHEN UND AUSWÄHLEN - INHALTE - FORMELN - ZAHLEN