Sub Punkte()
Dim neueZeile As Long
For i = 8 To 50 Step 2
neueZeile = Cells(Rows.Count, i).End(xlUp).Row + 1
If neueZeile
dieses makro sollte eigentlich den Wert aus I7 kopieren und ihn dann in Spalte H kopieren (nächstmögliche freie Zelle) und wenn meine Tabelle befüllt ist in die übernächste Spalte springen und dort weitermachen.
Er kopiert die Werte aber immer direct in Spalte I, obwohl die Zellen in H definitive frei sind.
Eine Idee was falsch läuft ware super.
Beste Grüße und Danke