【VBA】マクロについて質問です。

質問

マクロ超初心者です。

取引先との面談の記録を残しているファイルがあり、その中の何個かの特定のセルを別のファイルに積み上げる形式でコピーしたいです。（全シート分）（シートの数はファイルによって違います）
コピーしたい特定のセルをA１～A５までに貼り付けて、
次のシートはB１～B５と、項目ごとに下へ下へと貼り付けるようにしたいです。
取引先のファイルには複数シートがあり、フォーマット自体はすべて同じです。
現在以下マクロを組んでいます。

Sub 移行実験

Dim oldWB As Workbook, newWB As Workbook
Dim I As Integer, s As string, xFile As String

With Application.FileDialog(msoFileDialogOpen)
.Title = "変換ファイル選択"
If . Show = True Then
xFile = .SelectedItems(1)
Else
Exit Sub
End If
End With

Set oldWB = Workbooks. Open(xFile)
Set newWB = Workbooks. Open(ThisWorkbook. Path & "¥新.xlsx

'ここに複数シートの内容を別ブック（新.xlsx）のひとつのシートにまとめるマクロを入れたいです。'

newWB. SaveAs Filename:=ThisWorkbook.Path & "\" & _
oldWB.Worksheets(1) . Range("A1") . Value, FileFormat:=xlWorkbookNormal

oldWB. Close False: newWB. Close False

End Sub

もっとこうした方がいいと思う所や、修正する箇所もあれば教えていただけると幸いです。
マクロ初心者のため、分かりやすく教えていだだけると有難いです。

どうぞよろしくお願いいたします。

回答No.1

sora1515

ここはVBの質問をする所ですよ。