特定の行を削除したい

Question

前提・実現したいこと

現在、エクセルで請求書をマクロで作成しようとしています。
雛型には多数の名目等を記載する行が数十行ありますが、
不必要な部分は削除したいと考えております。

発生している問題・エラーメッセージ

問題点としては、コードを実行しても行が削除されない
修正をしたところ今度はテンプレートまでまるっと消える

該当のソースコード

Dim ws As Worksheet
Set ws = Worksheets("雛形 (2)")
For num4 = Cells(Rows.Count, 22).End(xlUp).Row To 13 - 1
Debug.Print num4
    If ws.Range("V" & num4) = "" Then
        If ws.Range("B" & num4).Interior.ColorIndex <> 40 Then
            Rows(num4).Delete
        End If
    End If
Next num4

補足情報（FW/ツールのバージョンなど）

excel2010

Answer 1

Stepを入れてください

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

Comments

[hiro_01]

返信ありがとうございます！

無事、行を削除する事ができました！
ありがとうございます！