Sub InsertCell_1_1()
    '現在のセルの上に空白のセルを1個挿入
    ' (挿入後下へシフト)
    ActiveCell.Insert Shift:=xlShiftDown
End Sub

Sub InsertCell_1_2()
    '現在のセルの横に空白のセルを1個挿入
    '(挿入後右へシフト)
    ActiveCell.Insert Shift:=xlShiftToRight
End Sub

Sub InsertCell_2_1()
    'C10セルの上に空白のセルを1個挿入
    '(挿入後下へシフト)
    With ActiveSheet
        .Range("C10").Insert Shift:=xlShiftDown
    End With
End Sub

Sub InsertCell_2_2()
    'C10セルの横に空白のセルを1個挿入
    '(挿入後右へシフト)
    With ActiveSheet
        .Cells(10, 3).Insert Shift:=xlShiftToRight
    End With
End Sub

Sub InsertCell_3_1()
    'B10セルからB15の位置に空白のセルを挿入
    '複数セルの挿入 (挿入後下へシフト)
    With ActiveSheet
        .Range("B10:B15").Insert Shift:=xlShiftDown
    End With
End Sub

Sub InsertCell_3_2()
    'B10セルからB15の位置に空白のセルを挿入
    '複数セルの挿入 (挿入後右へシフト)
    With ActiveSheet
        .Range(.Cells(10, 2), .Cells(15, 2)).Insert Shift:=xlShiftToRight
    End With
End Sub

Sub DeleteCell_1_1()
    '現在のセルを1個削除し、上にシフトする
    ActiveCell.Delete Shift:=xlShiftUp
End Sub

Sub DeleteCell_1_2()
    '現在のセルを1個削除し、左にシフトする
    ActiveCell.Delete Shift:=xlShiftToLeft
End Sub

Sub DelettCell_2_1()
    'C10セルを削除し上にシフト
    With ActiveSheet
        .Range("C10").Delete Shift:=xlShiftUp
    End With
End Sub

Sub DelettCell_2_2()
    'C10セルを削除し左にシフト
    With ActiveSheet
        .Cells(10, 3).Delete Shift:=xlShiftToLeft
    End With
End Sub

Sub DelettCell_3_1()
    'B10セルからB15のセル範囲を削除
    '複数セルの削除 (削除後上へシフト)
    With ActiveSheet
        .Range("B10:B15").Delete Shift:=xlShiftUp
    End With
End Sub

Sub DelettCell_3_2()
    'B10セルからB15のセル範囲を削除
    '複数セルの削除 (削除後左にシフト)
    With ActiveSheet
        .Range(.Cells(10, 2), .Cells(15, 2)).Delete Shift:=xlShiftToLeft
    End With
End Sub