=A1 & CHAR(32) & B1 & CHAR(10) & A2 & CHAR(32) & B2

strMerge = strMerge & Chr(10) & MyCell.Value

strMerge = strMerge & Chr(13) & Chr(10) & MyCell.Value

Range("C1").Select
    With Selection
        .FormulaR1C1 = "=CONCATENATE(RC[-2],RC[-1]) &  CHAR(10) & CHAR(13) & CONCATENATE(R[1]C[-2],R[1]C[-1])"
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
    End With
End Sub

Sub MergeSelectedRowData()

Dim MyCell As Range
Dim strMerge As String

Dim MyCell2 As Range
Dim strMerge2 As String

For Each MyCell In Sheets("Sheet1").Range("A1:B1")

    If strMerge = "" Then
        strMerge = MyCell.Value
    Else
        strMerge = strMerge & Chr(32) & MyCell.Value
    End If

Next MyCell

For Each MyCell2 In Sheets("Sheet1").Range("A2:B2")

    If strMerge2 = "" Then
        strMerge2 = MyCell2.Value
    Else
        strMerge2 = strMerge2 & Chr(32) & MyCell2.Value
    End If

Next MyCell2

Cells(1, 3).Value = strMerge & Chr(10) & strMerge2

Sub MergeSelectedRowData2()

Dim MyCell As Range
Dim strMerge(1 To 2) As Variant
Dim finalStr As String

Dim i As Integer

For i = 1 To 2

    For Each MyCell In Sheets("Sheet1").Range("A" & i & ":" & "B" & i)

        If strMerge(i) = "" Then
            strMerge(i) = MyCell.Value
        Else
            strMerge(i) = strMerge(i) & "   " & MyCell.Value
        End If

    Next MyCell

    If finalStr = "" Then
        finalStr = strMerge(i)
    Else
        finalStr = finalStr & Chr(10) & strMerge(i)
    End If

Next

Cells(1, 3).Value = finalStr