エクセル 入力フォームシートからデーター保存シートの一番下の行に貼り付けをしたいのですが・・・・・

入力フォームシートの　Ｆ3：Ｋ3　Ｍ2：Ｕ2　Ｆ4：Ｊ4　Ｆ7：Ｉ7　Ｌ7　Ｎ5：Ｏ5　Ｈ6：Ｊ6　Ｆ8：Ｋ８　のセルから　データー保存シートのＡ列・Ｂ列・Ｃ列・Ｄ列・Ｅ列・Ｆ列・Ｇ列・Ｈ列の順番で保存していきたいのですが、ＶＢＡ初心者でマクロの登録で、一番下の行に貼り付けがどうしてもうまくいかず、保存ボタンを押すと全ての行に貼り付けられて(-"-)困っています。救助お願いします<(_ _)>

質問者からの補足コメント

• なんかすみませんこの質問も初めてで・・・
  ４０代女性に特にお願いとなってますが、教えてくださる方に限りはありません。
  どなたでもよろしくお願いします。

    補足日時：2017/05/26 17:48

• 

  そうなんです。エクセルの枠線を基本　列幅3　行幅20のマス目のシートで作成していますが、データー保存は基本のシートのままで行っています。

  No.1の回答に寄せられた補足コメントです。 補足日時：2017/05/27 11:25

No.1 回答者： GooUserラック 回答日時： 2017/05/26 18:50

例えば「Ｆ3：Ｋ3」とは「F3」セルから「K3」セルまでの６個のセルが結合されていると言う事でしょうか？

No.2 ベストアンサー 回答者： GooUserラック 回答日時： 2017/05/26 19:13

とりあえず、こんな事でしょうか？

-------------------------------------------------------------------------
Sub Sample()
Dim 行 As Long
Sheets("データー保存シート").Select
行 = Cells(Rows.Count, 1).End(xlUp).Row + 1
If Cells(1, 1).Value = "" Then 行 = 1
With Sheets("入力フォームシート")
Cells(行, 1).Value = .Range("F3:K3").Value
Cells(行, 2).Value = .Range("M2:U2").Value
Cells(行, 3).Value = .Range("F4:J4").Value
Cells(行, 4).Value = .Range("F7:I7").Value
Cells(行, 5).Value = .Range("L7").Value
Cells(行, 6).Value = .Range("N5:O5").Value
Cells(行, 7).Value = .Range("H6:J6").Value
Cells(行, 8).Value = .Range("F8:K8").Value
.Select
End With
End Sub
-------------------------------------------------------------------------

この回答へのお礼

ありがとうございます。<(_ _)>
有効に使わせていただきます。

お礼日時：2017/05/27 11:32

No.3 回答者： GooUserラック 回答日時： 2017/05/26 19:16

No.2 の追補

「データー保存シート」にタイトル行が有った場合は「If Cells(1, 1).Value = "" Then 行 = 1」は不要です。
また、シート名が違っていたら、適当に直して下さい。