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