ich möchte einen ausgewählten Bereich (der Bereich enthält Formeln) an das Tabellenende verschieben.
Das Tabellenende soll hierbei nicht die letzte Zeile, sondern die erste leere Zelle der Spalte C sein.
Mein Versuch:
For n = 3 To Worksheets.Count
With Worksheets(n)
For r = 6 To 300
If .Cells(r, 3) = "" Then
.Range("AF5:AG30").Cut
.Range(r, 3).Paste
Exit For
End If
Next r
End With
Next n
Vielen Dank für Tipps,
Florian