Sub ImportExcelSheet()
Dim Wind As FileDialog
'Variable for Sheet "Offer"
Dim OFFsheet As Worksheet
'Variable for file with Sheet "Products"
Dim PRDFile As String

'-- Selecting file
Application.ScreenUpdating = False
Set OFFsheet = Sheets("Offer")
Set Wind = Application.FileDialog(msoFileDialogOpen)

With Wind
.Title = "Search for file Products.xls(x)"
.InitialView = msoFileDialogViewDetails
.InitialFileName = ActiveWorkbook.Path
.Filters.Clear
.Filters.Add "All files", "*.*"
.Filters.Add "Plik xls", "*.xls, *.xlsx", 1

If .Show = True Then
    PRDFile = .SelectedItems(1)
End If
End With

Set Wind = Nothing

'---Copy data
If PRDFile = "" Then Exit Sub
Workbooks.Open (PRDFile)
OFFsheet.Visible = xlSheetVisible

ActiveSheet.UsedRange.Select
Selection.Copy
OFFsheet.Range("A1").PasteSpecial xlPasteValues

Application.CutCopyMode = False
ActiveWorkbook.Close (0)

'--Formatting report

OFFsheet.Select
ActiveSheet.Cells.EntireColumn.AutoFit
Range("A1").Select

Set OFFsheet = Nothing

Application.ScreenUpdating = True

MsgBox "Import data to Sheet 'Offer' completed", _
vbInformation

End Sub