Function GetFilePath(Optional ByVal Title As String = "Выберите файл для обработки", _
                     Optional ByVal InitialPath As String, _
                     Optional ByVal FilterDescription As String = "Файлы счетов", _
                     Optional ByVal FilterExtention As String = "*.*") As String
    On Error Resume Next
    InitialPath = ThisWorkbook.Path & "\"
    With Application.FileDialog(msoFileDialogOpen)
        .ButtonName = "Выбрать": .Title = Title:
        .InitialFileName = GetSetting(Application.Name, "GetFilePath", "folder", InitialPath)
        .Filters.Clear: .Filters.Add FilterDescription, FilterExtention
        If .Show <> -1 Then Exit Function
        GetFilePath = .SelectedItems(1)
        folder$ = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
        SaveSetting Application.Name, "GetFilePath", "folder", folder$
    End With
End Function

' получаем ссылку на файл
FilenameToInsert$ = GetFilePath() ' get file name to insert data
FilenameRVPS$ = GetFilePath()

If FilenameToInsert$ = "" Or FilenameRVPS$ = "" Then Exit Sub ' if is not exists - exit
Set WBto = Nothing: Set WBto = xlAp.Workbooks.Open(FilenameToInsert$, False, False)
Set WBfrom = Nothing: Set WBfrom = xlAp.Workbooks.Open(FilenameRVPS$, True, True)

' ниже функция, которая должны вернуть номер строки в файле (ее нужно как-то переписать
Function Getj(shi As Integer, Optional KeyName As String) As Integer
On Error Resume Next
If Len(KeyName) = 0 Then
   KeyName = "Код"
End If
  ei = Sheets(shi).UsedRange.Rows.count
  ej = Sheets(shi).UsedRange.Columns.count
 For i = 1 To ei
     For j = 1 To ej
      If Trim(Sheets(shi).Cells(i, j).Value) = KeyName Then
          Getj = j
      End If
     Next j
   Next i
End Function