あるフォルダに入っている複数のエクセルブックの1シート目に欲しいデータがある。
それぞれのシートのA1,A2,B1,B2,C1,C2と固有のセルデータを所得して、
それを新たなブックに1行ずつデータを順に張り付けたい。

1行が1ブック（シート）分のデータになるようにしたい。
どのようにVBAを書けばいいですか

Excel2010でお願いします。