Sub AppendToExistingOnRight()
Dim estobayusAddChar As Range
For Each estobayusAddChar In Selection
If estobayusAddChar.Value <> "" Then estobayusAddChar.Value = estobayusAddChar.Value & "-ESTOBAYUS"
Next
End Sub