Das nachstehende Makro habe ich im Forum gefunden. Funktioniert einwandfrei. Nun möchte ich einfach, dass die jeweils zweite Zeile nur bis zum letzten Wert in Spalte R eingefügt wird.
Kann mir jemand helfen?
Vielen Dank
Andreas
Sub ZweiteZeilenEinfuegen()
Dim I%
For I = 1 To 200
Cells(3 + I * 2, 1).EntireRow.Insert Shift:=xlDown
Next I
End Sub