Excelのマクロに関する質問です。良い回答は、300ポイント差し上げます。

実棚卸数の列と棚卸差異の列をオートフィルで３０００行までドラッグするのが簡単です。

一応マクロでやるとすると、それぞれC列とE列として、４行目の数式を書いて

Sub Macro()
    Range("C4").AutoFill Destination:=Range("C4:C3000"), Type:=xlFillDefault
    Range("E4").AutoFill Destination:=Range("E4:E3000"), Type:=xlFillDefault
End Sub

が３０００行までオートフィルするマクロとなります。

棚卸の原価計算の簡略化をしたいとお見受けします。

もし、実棚・単価が入っているようでしたら

棚卸差異と消費額の式を最初の1つ（4行目）のみ入力し

http://pc.nikkeibp.co.jp/article/technique/20100805/1026770/

この技を使うことで全自動で入力されます。

このサイトの説明では「列全体」となっていますが

実際は隣のセルに数字の入っている行まで適応されます。

またEXCEL2010の例になっていますが、2003以降であればどれでも同じく使えます。

また、右クリックをしながらドラッグをすることで、

「書式のみコピー」や「連続した数字の入力」など、小技がいろいろ使えますので

一度お試しください。

何らかの事情でマクロにこだわっておられる場合は申し訳ありません。

マクロでのやりかたもいろいろありますが例をいくつか作ってみましたので見比べてみてください

（１）少しだけ応用の利く方法

"が４つ並んでいるのは記入ミスではありません

"を文字列として扱わせるためには""と２つ続けて書く必要があるため、"を二つ続けたい場合には""と""で""""と４つ連なることになるのです

Sub Macro1()
    Dim r As Long
    r = 3000: '最終行を指定する
    With Range("C4")
        .Formula = "=IF(A4="""","""",B4-A4)"
        .AutoFill Destination:=Range("C4:C" & r), Type:=xlFillDefault
    End With
    With Range("E4")
        .Formula = "=IF(B4="""","""",C4*D4)"
        .AutoFill Destination:=Range("E4:E" & r), Type:=xlFillDefault
    End With
End Sub

（２）ちょっと手抜きな方法

後でメンテナンスが面倒になるかもしれませんが今回限りならこれでも十分

Sub Macro2()
    With Range("C4")
        .Formula = "=IF(A4="""","""",B4-A4)"
        .AutoFill Destination:=Range("C4:C3000"), Type:=xlFillDefault
    End With
    With Range("E4")
        .Formula = "=IF(B4="""","""",C4*D4)"
        .AutoFill Destination:=Range("E4:E3000"), Type:=xlFillDefault
    End With
End Sub

（３）もっと手抜きな方法

コピーではなく直接的に式を書き込んでしまう方法

Sub Macro3()
    Range("C4:C3000").Formula = "=IF(A4="""","""",B4-A4)"
    Range("E4:E3000").Formula = "=IF(B4="""","""",C4*D4)"
End Sub

これが正解でしょう。

Sub 数式入力()

With Worksheets("Aシート")
    .Range("C4:C3000").FormulaR1C1 = "=IF(RC[-2]="""","""",RC[-1]-RC[-2])"
    .Range("E4:E3000").FormulaR1C1 = "=IF(RC[-3]="""","""",RC[-2]*RC[-1])"
End With

End Sub

シート名は適宜変更してください。