Public Sub RockSoul()
Dim lRow As Long
Dim rs As Variant
lRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lRow
Range("L" & i).Select
rs = Range("L" & i).Value
Range("L" & i).Value = rs & " R+S "
Next i
End Sub
Sub Maybe_A()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("L1:L" & Cells(Rows.Count, 12).End(xlUp).Row)
c.Value = c.Value & " R+S"
Next c
Application.ScreenUpdating = True
End Sub
Sub Maybe_B()
Dim a, i As Long
a = Range("L1:L" & Cells(Rows.Count, 12).End(xlUp).Row).Value
For i = LBound(a) To UBound(a)
a(i, 1) = a(i, 1) & " R+S"
Next i
Range("L1").Resize(UBound(a)).Value = a
End Sub