versuch mal damit. es ist ein bissle unklar ob deine Spalte 2 aus "Eingabe" aus zwei Zellen besteht
oder zwei Worte in einer Zelle drin sind. Ersteres ist umgesetzt.
Sub texte()
Dim i As Long, x As Long
x = 1
i = 1
Do While Sheets("Eingabe Texte").Cells(i, 1) <> ""
For x = 1 To Sheets("Ausgabe Texte").Cells(Rows.Count, 1).End(xlUp).Row Step 2
Sheets("Ausgabe Texte").Cells(x, 1).Value = Sheets("Eingabe Texte").Cells(i, 1)
Sheets("Ausgabe Texte").Cells(x + 1, 1).Value = Sheets("Eingabe Texte").Cells(i, 1)
Sheets("Ausgabe Texte").Cells(x, 2).Value = Sheets("Eingabe Texte").Cells(i, 2)
Sheets("Ausgabe Texte").Cells(x + 1, 2).Value = Sheets("Eingabe Texte").Cells(i, 3)
Next x
i = i + 1
Loop
End Sub