Sub ee()
Dim Tblo1
Dim DerLig As Long, I As Long
DerLig = Cells(Rows.Count, "AX").End(xlUp).Row
Tblo1 = Range("AX1:AX" & DerLig)
ReDim Tblo2(1 To DerLig)
For I = LBound(Tblo1) To UBound(Tblo1)
Tblo2(I) = Tblo1(I, 1) & Join(Application.Transpose(Application.Transpose(Cells(I, 1).Resize(1, 49))), "")
Next I
Cells(1, "AY").Resize(DerLig) = Application.Transpose(Tblo2)
End Sub