Sub marta()
Dim Dukt As String, wiersz As Long
Dim skoro As Object

Dukt = "C:\Users\Toczi\Desktop\excel.xlsx"
If Dir(Dukt) = "" Then Exit Sub

Set skoro = GetObject(Dukt)
With skoro.Worksheets(1)
wiersz = .Cells.Find(What:="*", After:=.Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
.Range(.Cells(1, 1), .Cells(wiersz, 40)).Copy ThisWorkbook.Sheets("Zestawienie").Cells(1, 1)
Sheets("Zestawienie").Range("X1:X" & wiersz).Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
skoro.Close False
End With
Set skoro = Nothing
End Sub