Excelの行削除について

質問

A1のセルに「小計」という文字が入力してあり、A5にも「小計」という文字が入力してあるとします。
マクロを使いA2～A4を削除したときに「小計」が並びます
。
　　Ａ　　　　　　　Ａ
１　小計　　　　１　小計
２　　　　　　　２　小計
３　　　　　→　３
４　　　　　　　４
５　小計　　　　５
このときに下の行にある小計を自動で削除する方法があれば教えてください。

　　Ａ　　　　　　　Ａ
１　小計　　　　１　小計
２　小計　　　　２　　
３　　　　　→　３
４　　　　　　　４
５　　　　　　　５

よろしくお願いします

回答No.1

noname#240783 · ベストアンサー

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
I = 1
Do While I < 10
If Cells(I, 1).Value = "小計" And _
Cells(I + 1, 1).Value = "小計" Then
Cells(I + 1, 1).Value = ""
Exit Do
End If
I = I + 1
Loop
End If

End Sub

こういうことでしょうか？？