I was able to piece together something that works . . .
I'm certain there is a better way to do this . . .
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 "
Hi all, Welcome to the Chandoo.org Forums. Posting Rules & Etiquette The Chandoo.org Forums is a collaborative and happy place to learn and expand your Excel knowledge. The Chandoo.org Forums consist of several Sub-Forums based on the type of question/area of Excel you are interested in...
Change references if required.
First option should be enough but if you have a real large range, the 2nd macro is faster.
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"
Application.ScreenUpdating = True
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"
Range("L1").Resize(UBound(a)).Value = a