Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
wbDest.Sheets("Data").Range("A" & i).Value = wbSource.Sheets("Summary").Range("B1").Value
wbDest.Sheets("Data").Range("B" & i).Value = wbSource.Sheets("Summary").Range("B2").Value
wbDest.Sheets("Data").Range("C" & i).Value = wbSource.Sheets("Summary").Range("B3").Value
wbDest.Sheets("Data").Range("D" & i).Value = wbSource.Sheets("Summary").Range("B4").Value
wbDest.Sheets("Data").Range("E" & i).Value = wbSource.Sheets("Summary").Range("B6").Value
wbDest.Sheets("Data").Range("F" & i).Value = wbSource.Sheets("Summary").Range("B8").Value
wbDest.Sheets("Data").Range("G" & i).Value = wbSource.Sheets("Summary").Range("B15").Value
wbDest.Sheets("Data").Range("H" & i).Value = wbSource.Sheets("Summary").Range("B16").Value
wbDest.Sheets("Data").Range("I" & i).Value = wbSource.Sheets("Summary").Range("B17").Value
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True