:wall:Sub AddCells()
Dim Rng As Range, Rng0 As Range
Dim StrC As String, iJ As Long
Set Rng0 = Selection: StrC = Left(Rng0.Address, 2)
'Chú ý: Chỉ mới áp dụng được cho 25 cột đầu mà thôi
iJ = Rng0.Row
Set Rng = Range(StrC & iJ & ":" & StrC & Range(StrC & 56123).End(xlUp).Row)
For Each Rng0 In Rng
Rng0.Value = Rng0.Offset(0, -1).Value & " " & Rng0.Value
Next Rng0
Set Rng = Nothing: Set Rng0 = Nothing
End Sub