『最終行の次の行に入力項目をコピーしたい』（かぶと）
 
 以下のような表を作り複数人で入力しています。 

     A    B      C      D      E      F
  1 入力 入力   入力   自動   自動   自動　（←コピー元の式）
  2
  3 日付 顧客名 販売額 割引率 割引額 精算額（←見出し）
  4 入力 入力   入力   自動   自動   自動　（←入力データ）
  5 入力 入力   入力   自動   自動   自動
 　 ・
 　 ・
 　 ・
 10 入力 入力   入力   自動   自動   自動
 
 セルA,B,Cには入力規則やセルの書式設定を施し
 セルD,E,Fにはそれぞれ計算式が入っています。 

 上の例では10行目まで入力が完了したら、A1〜F1の計算式を
 コピーし11行目以降に貼り付けるにはどのようにしたら
 良いでしょうか？


 但し、セルD,E,Fは勝手に書き換えられたくないので
 セルのロック（〜シートの保護）をしようと思います。

 素人なりに以下の方法を試してみました。
 １．最終行の次の行を指定するために以下のマクロを登録
 　　Range("a65536").End(xlUp).Offset(1).Select
 ２．新しいマクロの記録で以下の操作
 　　シートの保護を解除→A1〜F1のセルをコピー
 　　→上記１．で作成したマクロを実行

 この時点でコピーの範囲選択が解除となり貼り付ける事ができません。
 （ちなみにこの先は、貼り付け→シートの保護　のつもりでいました）

 また、欲を言えば１度の操作で１行ずつではなく
 ５〜１０行分コピーされると理想的です。

 良い方法があればお教えくださいますようお願いします。

 WindowsXP/Excel2003
----
 最初から当面必要となる行まで、式をいれることはできないのですか、
 Ａ〜Cに入力がない場合，D11:=IF(COUNTA(A11:C11)=0,"",計算式)　　　(NB)