┌──────────────────────────────────────┐
│Sub 選択した右隣にABCを入力するマクロⅠ()                                   │
│    Dim x As Long, y As Long                                                │
│    For x = 1 To Selection.Columns.count                                    │
│        For y = 1 To Selection.Rows.count                                   │
│            Selection.Cells(y, x + 1).Value = "ABC"                         │
│        Next y                                                              │
│    Next x                                                                  │
│End Sub                                                                     │
├──────────────────────────────────────┤
│Sub 選択した右隣にABCを入力するマクロⅡ()                                   │
│    Dim r As Range                                                          │
│    For Each r In Selection                                                 │
│        r.Offset(0, 1).Value = "ABC"                                        │
│    Next r                                                                  │
│End Sub                                                                     │
└──────────────────────────────────────┘
選択した右隣を操作するには上記のような二つの方法がある。

なお、いずれも先頭に以下を付加しておけば上書の心配はない。
┌──────────────────────────────────────┐
│    If Selection.Columns.count > 1 Then                                     │
│        MsgBox "一列のみ選択してください"                                   │
│        Exit Sub                                                            │
│    End If                                                                  │
└──────────────────────────────────────┘