エクセル オートフィル 空白 処理しない 続きを処理 ＶＢＡ

いつもありがとうございます。
環境はＥＸＣＥＬ２０１０です。
オートフィルでＦ５から、Ｄ５×Ｅ５の演算をＢ列の最終行を見て行っておりますが、
Ｄ５・Ｅ５セルのどちらかが空白時には処理をせず、演算の続きを処理するように変更を考えております。

Range("F5").Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"

Range("F5").Select


'Ｂ列を基準に最終行までオートフィル

With Cells(Rows.Count, "B").End(xlUp)
Selection.AutoFill Destination:=Range(Selection, Cells(.Row, "F")), Type:=xlFillCopy
End With

そもそもの考え方が、まったく異なるかとも思いますが、ご教示頂ければ助かります。
よろしくお願い致します。

No.2 回答者： tom04 回答日時： 2016/03/14 22:54

こんばんは！

オートフィルではなく、一気に数式を入れる方法ですが・・・

Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Range(Cells(5, "F"), Cells(lastRow, "F")).Formula = "=IF(COUNT(D5:E5)=2,D5*E5,"""")"

としてみてはどうでしょうか？m(_ _)m

No.1 回答者： hallo-2007 回答日時： 2016/03/14 16:04

ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"

を
ActiveCell.FormulaR1C1 = "=IF(OR(RC[-2]="",RC[-1]=""),"",RC[-2]*RC[-1])"
とかにしてみるでは？