Creating two workbooks to copy cells from one to the other

[KA3PMW]

I need to open two spread sheets in order to copy the cells from one to the other. I am currently doing it manually. the code that I have that opens the sheet is:

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

 End Sub
   ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyy-mm-dd") & " Emergengy Log"
    ActiveWindow.WindowState = xlMinimized
  
  
   End Sub

The workbooks need to have the dates in them and I need to be able to distinguish between them.
Any help is appreciated.