Sub test()
Application.ScreenUpdating = False
x = Cells(1, 256).End(xlToLeft).Column
For n = 1 To Range("A65536").End(xlUp).Row
For m = 1 To x
tot = tot & Cells(n, m)
Next m
Cells(n, x + 1) = tot
tot = ""
Next n
Range(Cells(1, 1), Cells(Range("A65536").End(xlUp).Row, x + 1)).Sort Key1:=Cells(1, x + 1), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns(x + 1).ClearContents
Application.ScreenUpdating = True
End Sub