Rájöttem végülis mindenre. Tapasztalatom: egész logikusan vannak a programozási parancsok összehozva. Szóval, így néz ki a végleges makróm, hátha még valakinek szüksége lesz rá:

Sub Osszefesul()

Sheets("Sheet1").Select
sor_1 = 2
For sor = 2 To Range("A65536").End(xlUp).Row
Sheets("Sheet2").Cells(sor_1, 1) = Cells(sor, 1) + vbNewLine + Cells(sor, 3)
Sheets("Sheet2").Cells(sor_1, 2) = Cells(sor + 1, 1) + vbNewLine + Cells(sor + 1, 3)
sor_1 = sor_1 + 1
sor = sor + 1
Next
End Sub

Ezzel értem el amit akartam. Köszönet a hálás segítségért, Deilia_1