Вот пример макроса для Microsoft Excel на языке VBA, который это делает:

```vba
Sub MergeTwoLines()
    Dim rng1 As Range, rng2 As Range
    Dim row1 As Long, row2 As Long

    row1 = InputBox("Введите номер первой строки: ")
    row2 = InputBox("Введите номер второй строки: ")

    Set rng1 = Range("A" & row1)
    Set rng2 = Range("A" & row2)

    rng1.Value = rng1.Value & "," & rng2.Value
    rng2.EntireRow.Delete
End Sub
```

Если вам нужны подробные объяснения, комментарии или дополнительный функционал, то буду рад помочь.
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence