【1 OSの種類 　 　 　 　 .】 Windows７
【2 Excelのバージョン 　 】 Excel２０１０
【3 VBAが使えるか　 　 .】 はい･
【4 VBAでの回答の可否】 可･

A列に一貫番号、B（発生）、C（受付）、D（着工）、E（処置）、F（完了）に日付が入っています。
日付はアルファベット順に入力「されますが、G列で下記の式でステータスを確認していますが、
これを最下行をまでVBAにて入力もしくは計算させることは可能でしょうか？


=IF(C2="","",IF(AND(D2="",E2="",F2=""),"受付",IF(AND(D2="",E2=""),"着工",IF(F2="","処置済み","完了"))))

Dim maxRow As Long
maxRow = Rows.Count
r = maxRow

For r = 2 To r
Cells(r, ７) = (IF(C2="","",IF(AND(D2="",E2="",F2=""),"受付",IF(AND(D2="",E2=""),"着工",IF(F2="","処置済み","完了"))))
Next

End Sub

これだと構文エラーになります。どこがだめなのかわかりませんが、
あらかじめG列に式を入力してオートフィルで増やせばいいのかもしれませんが、実際にはAZ列まで入力されてます
ので可能な限りセルに式を入力するのを避けたいと思います。
お知恵を拝借したく。お願いします。

サンプル
http://gf8.work/Q2kd