Future spreadsheets to auto update existing spreadsheet?

'START COPY TO SUMMARY SHEET
    Dim SourceRange As Range
    Dim DestRange As Range
    Dim DestWB As Workbook
    Dim DestSh As Worksheet
    Dim Lr As Long
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    'Change the file name (2*) and the path/file name to your file
    If bIsBookOpen_RB("summary.xls") Then
        Set DestWB = Workbooks("summary.xls")
    Else
        Set DestWB = Workbooks.Open("C:\Documents and Settings\user\Desktop\TEST\excel test\proj1\summary.xls")
    End If
    'Change the Source Sheet and range
    Set SourceRange = ThisWorkbook.Sheets("Sheet1").Range("A3:Z3")
    'Change the sheet name of the database workbook
    Set DestSh = DestWB.Worksheets("Sheet1")
 
    Lr = LastRow(DestSh)
    Set DestRange = DestSh.Range("A" & Lr + 1)
    'We make DestRange the same size as SourceRange and use the Value
    'property to give DestRange the same values
    With SourceRange
        Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
    End With
    DestRange.Value = SourceRange.Value
    DestWB.Close savechanges:=True
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
'END COPY TO SUMMARY SHEET
End Function

Option Explicit

'START COPY TO SUMMARY SHEET
    Dim SourceRange As Range
    Dim DestRange   As Range
    Dim DestWB      As Workbook
    Dim DestSh      As Worksheet
    Dim LR          As Long
    Dim WasOpen     As Boolean
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
 'Change the file name (2*) and the path/file name to your file
    WasOpen = bIsBookOpen_RB("summary.xls")
    If WasOpen Then
        Set DestWB = Workbooks("summary.xls")
    Else
        Set DestWB = Workbooks.Open("C:\Documents and Settings\user\Desktop\TEST\excel test\proj1\summary.xls")
    End If
    
 'Change the Source Sheet and range
    Set SourceRange = ThisWorkbook.Sheets("Sheet1").Range("A3:Z3")
 
 'Change the sheet name of the database workbook
    Set DestSh = DestWB.Worksheets("Sheet1")
    LR = LastRow(DestSh)
    On Error Resume Next
    Set DestRange = DestSh.Range("A:A").Find(SourceRange.Cells(1, 1), LookIn:=xlValue, LookAt:=xlWhole)
    If DestRange Is Nothing Then Set DestRange = DestSh.Range("A" & LR + 1)
  
  'We make DestRange the same size as SourceRange and use the Value
  'property to give DestRange the same values
    With SourceRange
        Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
    End With
    DestRange.Value = SourceRange.Value
    
    If WasOpen Then
        DestWB.Save
    Else
        DestWB.Close True
    End If
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
'END COPY TO SUMMARY SHEET