指定した範囲で0の行を削除するマクロ

質問

以下のコードで7列目が0の行を削除するマクロを作ったのですが、
13行目以降を削除するように指定できますでしょうか？
1-12行は別のシートに数式を入れているため、削除したくないのですが、
うまくいきません。よろしくお願いいたします。

Sub 行削除()
Dim Rw As Long
Dim Cnt As Long
Application.ScreenUpdating = False
For Rw = Cells(Rows.Count, 7).End(xlUp).Row To 1 Step -1
With Cells(Rw, 7)
If .Value = 0 Then
.EntireRow.Delete
Cnt = Cnt + 1
End If
End With
Next
If Cnt = 0 Then
MsgBox "削除対象行は、見つかりません。", vbExclamation
Else
MsgBox Cnt & " 件見つかり行を削除しました。", vbInformation
End If
End Sub

回答No.1

luka3 · ベストアンサー

５行目をこのようにしてください。

For Rw = Cells(Rows.Count, 7).End(xlUp).Row To 13 Step -1

To の後ろを13に変更しただけです。

お礼

完璧です！！ありがとうございました！！！