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

[patel]

Sub a()
fname = "C:\TEST\total.xlsx" ' to be changed
Set wbFrom = ThisWorkbook
Set wbTo = Workbooks.Open(fname)
Application.ScreenUpdating = False
With wbTo
    LR = .Sheets(1).Cells(Rows.Count, "B").End(xlUp).Row + 1
    .Sheets(1).Range("B" & LR) = wbFrom.Sheets(1).Range("D5")
    .Sheets(1).Range("C" & LR) = wbFrom.Sheets(1).Range("C51")
    .Sheets(1).Range("E" & LR) = wbFrom.Sheets(1).Range("H48")
    .Sheets(1).Range("F" & LR) = wbFrom.Sheets(1).Range("F29")
    .Sheets(1).Range("G" & LR) = wbFrom.Sheets(1).Range("A29")
    .Sheets(1).Range("H" & LR) = wbFrom.Sheets(1).Range("A30")
    .Sheets(1).Range("I" & LR) = wbFrom.Sheets(1).Range("B46")
    .Close True
End With
Application.ScreenUpdating = True
End Sub