Option Explicit

Sub File_Open_Insert()

    Dim ws_Dest As Worksheet
    Set ws_Dest = ActiveSheet

    Dim ws_Sour As Worksheet
    Set ws_Sour = Workbooks.Open(Диалог_Файл_Открыть). _
                  Worksheets("Sheet1")

    ws_Sour. _
            Range(Cells(23, 2), Cells(Строка_Крайняя(ActiveSheet), 4)).Copy ws_Dest.Cells(1, 1)

    ws_Sour.Parent.Close False

End Sub

Function Диалог_Файл_Открыть() _
         As String
    ' диалог открытия файла

    Dim File_Path_Full
    ' Open the select folder prompt

    With Application.FileDialog(msoFileDialogFilePicker)

        If .Show = -1 Then    ' if OK is pressed

            Диалог_Файл_Открыть = .SelectedItems(1)

        Else

            End

        End If
    End With
End Function

Function Строка_Крайняя(ws As Worksheet) _
         As Long   ' procedure Checked by test опосредованно
    ' Найти последняя строку  с данными, непустую

    Dim r As Range

    Set r = ws.Cells.Find(what:="*", SearchOrder:=xlByRows, _
                          SearchDirection:=xlPrevious)

    If r Is Nothing Then

        Строка_Крайняя = 1

    Else

        Строка_Крайняя = r.Row

    End If
End Function