EXCEL2013 シート内容を別ブックに転記するマクロについて教えてください

EXCEL初心者です。宜しくお願い致します。
以前は「データ追跡機能付きテンプレート ウィザード」を使用して見積もりシートに入力した
データを別の（見積もりデータ）ブックに転記して、管理していました。
しかし、EXCEL2013に変更になり「データ追跡機能付きテンプレート ウィザード」のアドインを
設定しましたが上手く機能しません。
そこでマクロでと思いｗｅｂを色々検索しましたが、初心者の私には敷居が高く、こちらで
教えていただければと思い質問しました。
画像の様に転記したいと思っています。

※転記元BOOKの入力するセルは固定です。
（例：B1、C1、A2、C2、C3、A1、B4は入力しません）

転記元BOOK　　　　→　　転記先BOOK
　　A　B　C　　　　　　　 A　　B　C　　D　　E　 F　 G　 H
1　A1　　　　　　　　　１ A1　B2　A3　B3　C4　A5　B5　C5　
2　　　B2
3　A3　B3
4　　　　　C4
５ A5　B5　C5

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

• 

  msize(1) = Cells(19, "B").Value
  mkami(1) = Cells(19, "D").Value
  mc(1) = Cells(19, "E").Value
  mkazu(1) = Cells(19, "F").Value
  mtanka(1) = Cells(19, "G").Value
  mgaku(1) = Cells(19, "H").Value
  for　で上位をまわすと、なぜか　配列の中身が空になってしまい
  取り合えす、（１to１１）を一つづつSETしています。

    補足日時：2017/07/06 15:24

No.2 回答者： hallo-2007 回答日時： 2017/07/01 08:48

参考までに、同じブックの別にシートだとして

Sub ボタン1_Click()
With Sheets("転記元BOOK")
For i = 1 To 10
For j = 1 To 3
'MsgBox Range("A100").End(xlToLeft).Column
Cells(1, Range("DA1").End(xlToLeft).Column + 1).Value = .Cells(i, j).Value
Next j
Next i
End With
End Sub

この回答へのお礼

ご回答誠にありがとうございます。
色々調べて自分なりに作成してみました。
かなりヘンテコですが．．．

お礼日時：2017/07/06 15:19

No.1 回答者： fujillin 回答日時： 2017/06/30 19:21

こんにちは

マクロの回答ではありません。

ご質問文を読む限りでは、通常のブック間のセルの参照でも良さそうに思えますが？
http://excel-jiten.net/formula/ref_other_books.h …
http://www.asahi-net.or.jp/~ef2o-inue/shiki/sub0 …

この回答へのお礼

ご回答誠にありがとうございます。
色々調べて自分なりに作成してみました。
かなりヘンテコですが．．．

お礼日時：2017/07/06 15:19