用VBA删除单元格

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

下图是参考答案的内容：

写为过程为：

Sub 删除单元格()
'删除B4单元格，删除后右侧单元格左移
Range("B4").Delete Shift:=xlToLeft
'删除B4单元格，删除后下方单元格上移
Range("B4").Delete Shift:=xlUp
'删除B4单元格所在的行
Range("B4").EntireRow.Delete
'删除B4单元格所在的列
Range("B4").EntireColumn.Delete
End Sub