'アクティブセルを削除して上詰め ActiveCell.Delete xlShiftUp
'アクティブセルを削除して左詰め ActiveCell.Delete xlShiftToLeft
セルを削除するには「Delete」を使用します
セルを削除した場合に、そのアドレス範囲は既存のセルが詰められてきます
その詰める動きを引数で指定します
このコードは引数は1つしかありません
また選択肢も2つのみで上詰めか左詰めです
これはワークシートの特性上、0行目が下に移動して1行目になる
というような動きは存在しないため、大きいほうから小さいほうへ移動します
削除のセル範囲を広げれば、それだけ一括で削除可能です
ただ、VBAの操作は元に戻せませんので削除は確認してから実行してください