With Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(, 23)
Was bedeutet dieser Befehl im Einzelnen?
Er bewirkt doch, dass die Formeln in der Spalte wo der Befehl gesetzt wird, solange kopiert werden, bis in Spalte 1 keine Werte mehr stehen, richtig?
Woran erkennt man, in welcher Spalte diese Funtion abläuft? Ist das die Spalte 2 - Cells(2.... ?