Sub UpdateFromSource()
    Dim wb As Workbook, ws As Worksheet, sh As Worksheet, lr As Long
    Application.ScreenUpdating = False
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\SOURCE.xlsx")
        Set ws = wb.Worksheets(1)
        Set sh = ThisWorkbook.Worksheets("BD")
        lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
        sh.Range("A2:E" & Rows.Count).ClearContents
        ws.Range("A2:D" & lr).Copy sh.Range("A2")
        wb.Close False
        With sh.Range("E2:E" & lr)
            .Formula = "=C2*D2"
        End With
    Application.ScreenUpdating = True
End Sub

Private Sub Workbook_Open()<br />
&nbsp; &nbsp; UpdateFromSource<br />
&nbsp; &nbsp; ThisWorkbook.Application.Visible = False<br />
&nbsp; &nbsp; Load FrmImp<br />
&nbsp; &nbsp; FrmImp.Show<br />
End Sub<br />
<br />