エクセルVABマクロで教えてください

質問

顧客管理をエクセルでしているのですが、今使用しているマクロを一部変更を考えているのですが、
名簿シ－トに１８項目ほどあり備考欄として４セル分（１５番目から１８番目を空欄としている）へ請求書を発行したら１７番目へ"請求書"を入力できるようにしていたのですが、１５～１８の空セルを探して開いているところへ入力を考えています。
１５と１６番目のセルは書式設定で１１と１２番目のセルへ"×"，"1"が入力されたら文字が出るようにしています。
結局"請求書"をいれるのは１７か１８になりますが。
その部分のマクロは下です。
　Dim rngFC As Range
With Sheets("名簿")
rngFC.Offset(0, 17).Value = "請求書"
rngFC.Offset(0, 11).Value = "×"
rngFC.Offset(0, 12).Value = "1"

回答No.1

bin-chan

問題点はなんでしょう？
「ＸＸしたいが、ＹＹのような問題がある。どうすれば良いか？」で書いてみてください。

> １５～１８の空セルを探して開いているところへ入力を考えています。
「１５～１８の空セルを探して開いているところへ入力をしたいが、空きの判定をどうすれば良いか？」
であれば
rngFC.Offset(0, 17).Value の１７のところを１５～１８まで変化させてIF文で判定。
ただしどこにも空きが無い場合にはどうするのか、も想定してください。

補足

早々に回答ありがとうございます。
〉ただしどこにも空きが無い場合にはどうするのか
今のところどこか（１７か１８）が開いている状態です。
〉rngFC.Offset(0, 17).Value の１７のところを１５～１８まで変化させてIF文で判定。
これでいいのでしょうか？ご教授をお願いします。
IF rngFC.(xlCellTypeBlanks).Select Then
rngFC.Offset(0, 15:18).Value = "手作業発行"
End IF