Macro to transfer data from open workbook to closed workbook with accumulation

[bakerman]

Different angle. Only 1 macro in WB Total.
On firing the code FilePicker will open, select desired invoice, invoice will open, numbers will be copied, invoice is closed.

Sub tst()
    With Application.FileDialog(msoFileDialogFilePicker)
        .Show
        Workbooks.Open .SelectedItems(1)
    End With
    Set wbTo = ThisWorkbook.Sheets("Total")
    With ActiveWorkbook
        With .Sheets(1)
            wbTo.Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(, 8) = Array(.Range("D5"), .Range("C51"), , _
                    .Range("H48"), .Range("F29"), .Range("A29"), .Range("A30"), .Range("B46"))
        End With
        .Close False
    End With
End Sub