エクセルVBAでの繰り返し処理について

１行目には１ヶ月分の日付がはいっています。 ２行目にはWEEKDAY関数で１行目の日付の曜日をいれています。 ３行目に月曜日（WEEKDAY関数では２）なら公休日の"公"と表示したいのですがどのようにしたらよいでしょうか？ Sub 公休日() If Range("A2").Value = 2 Then Range("A3").Value = "公" End If End Sub このような作業を繰り返すにはどうすればよいでしょうか？ 補足として、エクセル2007を使用しています。 ３行目には数字を入力するためIF関数を使うことができません。