Or maybe
Code:
Sub azov5()
    Dim ary As Variant
    Dim r As Long, c As Long

    ary = Range("A1:BW" & Range("A" & Rows.Count).End(xlUp)).Value2
    For r = 2 To UBound(ary)
        For c = 1 To UBound(ary, 2)
            ary(r, c) = ary(1, c) & " " & ary(r, c)
        Next c
    Next r
    Range("A1").CurrentRegion.Value2 = ary
End Sub