Sub test()
Application.ScreenUpdating = False
Dim rng As Range, srcRng As Range, lRow As Long, v As Variant, arr() As Variant, i As Long, ii As Long, x As Long
lRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
v = Range("A1:A" & lRow).Resize(, 2).Value
For i = LBound(v) To UBound(v)
For ii = 1 To lRow
x = x + 1
ReDim Preserve arr(1 To x)
arr(x) = v(i, 1) & v(ii, 2)
Next ii
Next i
Range("C1").Resize(x - 1) = Application.Transpose(arr)
Application.ScreenUpdating = True
End Sub