VBAで、別ファイルより転記

【自分用のメモ】

以下を□□にして使用。※□□に任意の名前を入れる。
・転記元のブック名、
・転記元ブックにある、転記先のシート名
・転記先ブックにある、転記先のシート名

＊ここから、コピペして使用

↓　　↓　　↓

Sub book□□より転記()
Workbooks.Open Filename:=ThisWorkbook.Path & "\□□.xls"
Dim Wb1, Wb2
Set Wb1 = ThisWorkbook 'このブック
Set Wb2 = Workbooks("□□.xls") '別ブック

Dim 条件 As Boolean
条件 = True

Dim i As Integer
i = 11 '先頭行数を指定

  Do While 条件
    Wb1.Worksheets("□□").Cells(i, 3).Value = Wb2.Worksheets("□□").Cells(i, 6).Value
    Wb1.Worksheets("□□").Cells(i, 4).Value = Wb2.Worksheets("□□").Cells(i, 7).Value
    Wb1.Worksheets("□□").Cells(i, 5).Value = Wb2.Worksheets("□□").Cells(i, 8).Value
    i = i + 1

    If Wb2.Worksheets("□□").Cells(i, 2).Value = "計" Then
            条件 = False
    End If
    
  Loop

Workbooks("□□.xls").Close

End Sub