親切に答えてくれるスレに頼ってスマソ。。。
拙者未熟者なのでVBで助けてくだされ

A1の値を4で割ったとき0にならなければ4行目を削除したいのだが
どうしてもこれを実行すると4行目以降のセルが何故かアクティブになってしもう・・・・

あと何回も実行できたら困るので1回実行したら出来ない方法はないですか？

本当スミマソン

If Range("A1").Value Mod 4 <> 0 Then

Rows("4:4").Select
Selection.Delete Shift:=xlUp


End If