【EXCELマクロ】空白のセルを削除する

質問

質問させてください。
ある特定のセルのみなにも記述されていない場合に削除するマクロを作成したいと思っております。
以下のようにコードを書いたのですがセルが削除されません。
知っていらっしゃる方いらっしゃいましたら教えていただけないでしょうか。

k = ＜＜任意の数の場合＞＞

If ThisWorkbook.Worksheets(＜＜【シートネーム】＞＞).Range("A" & k) = "" Then
ThisWorkbook.Worksheets(＜＜【シートネーム】＞＞).Range("P" & k).Delete Shift:=xlToLeft
End If
If ThisWorkbook.Worksheets(＜＜【シートネーム】＞＞).Range("J" & k) = "" Then
ThisWorkbook.Worksheets(＜＜【シートネーム】＞＞).Range("P" & k).Delete Shift:=xlToLeft
End If
　　　　　　　　　　　　　　　　　　　　　　：

削除後は左方向にシフトしたいと思っております。
以上、大変お手数をお掛けいたしますが宜しくお願い致します。

回答No.1

toshi_2000

問題なさそうですが、エラーも出ないのですか。
IF と END IF の間にMSGBOXでも入れて、IFの条件に合っているか確認してみてはどうですか。