"Makro-Umbau" wer weis Rat?

Sub Konvertierung()
Dim iZeile As Long, iiZeile As Long
Dim strZelle As String
iiZeile = 0
For iZeile = 1 To Range("A65536").End(xlUp).Row
If Cells(iZeile, 1) <> "" Then
strZelle = Cells(iZeile, 1)
Do While InStr(strZelle, Chr(10)) > 0
iiZeile = iiZeile + 1
Cells(iiZeile, 3) = Left(strZelle, InStr(strZelle, Chr(10)) - 1)
Cells(iiZeile, 4) = Cells(iZeile, 2)
strZelle = Right(strZelle, Len(strZelle) - InStr(strZelle, Chr(10)))
Loop
iiZeile = iiZeile + 1
Cells(iiZeile, 3) = strZelle
Cells(iiZeile, 4) = Cells(iZeile, 2)
End If
Next iZeile
End Sub