ohne Formatierung

Sub AutoForm1_BeiKlick()
Dim i As Integer
If Selection Is Nothing Then
Exit Sub
Else
Selection.Copy
End If
With Worksheets(Worksheets.Count)
For i = 23 To 50
If .Cells(i, 4).Text = "" And .Cells(i + 1, 4).Text = "" Then
.Cells(i + 1, 3).PasteSpecial
Exit Sub
End If
Next i
With Application.VBE.ActiveVBProject.VBComponents("Modul13").CodeModule
.DeleteLines 9, 1
.InsertLines 9, "For i = 9 To 55"
End With
MsgBox "Kein Platz zum einfügen"
End With
End Sub

MfG Ralf