Sub removeEndingSpace()
    If Selection.Areas.Count > 1 Then
        MsgBox "Please only select a single continuous rectangular area"
    Else
        For Each iCell In Selection
            iCell.Value = RTrim(iCell.Value)
        Next iCell
    End If
End Sub
Sub consolidateNames()
    With Worksheets("Sheet2")
        .Range("B2").Value = "bbb"
        .Range("B2").Copy
    End With
End Sub