Sub FileToInsert()    ' function to change data
Dim WBto, WBfrom As Workbook, shto, shfrom As Worksheet
Dim xlAp As New Excel.Application

FilenameToInsert$ = GetFilePath() ' get file name to insert data
FilenameRVPS$ = GetFilePath()
If FilenameToInsert$ = "" Or FilenameRVPS$ = "" Then Exit Sub ' if is not exists - exit
MsgBox ("äàííûå áóäóò ñêîïèðîâàíû èç ôàéëà" & FilenameToInsert$ & " â ôàéë " & FilenameRVPS$)

Set WBto = Nothing: Set WBto = xlAp.Workbooks.Open(FilenameToInsert$, False, True)
xlAp.Visible = False
Set WBfrom = Nothing: Set WBfrom = xlAp.Workbooks.Open(FilenameRVPS$, False, True)
xlAp.Visible = False

If WBto Is Nothing Then    ' íå óäàëîñü îòêðûòü ôàéë
   MsgBox "Íå óäàëîñü îòêðûòü ôàéë " & FilenameToInsert$
End If

If WBfrom Is Nothing Then    ' íå óäàëîñü îòêðûòü ôàéë
   MsgBox "Íå óäàëîñü îòêðûòü ôàéë " & FilenameRVPS$
End If

      WBto.Worksheets("Ëèñò1").Range("A2") = WBfrom.Worksheets("Ëèñò1").Range("A5")
      WBto.Worksheets("Ëèñò1").Range("B5") = WBto.Name
      
      
xlAp.Workbooks.Application.DisplayAlerts = False
xlAp.DisplayAlerts = False
WBto.Application.DisplayAlerts = False
WBfrom.Application.DisplayAlerts = False


WBto.Close savechanges:=True
WBfrom.Close savechanges:=False

xlAp.Workbooks.Application.DisplayAlerts = True
xlAp.DisplayAlerts = False
End Sub