Private Sub Workbook_open()
Dim nazwa As String
Dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")
    
    
    'Otwieramy raport dla DOS
     Workbooks.Open Filename:="\\192.168.100.44\Rejestr Nowych Artykułów\RejestrArtykulowDOS.xlsx"
    
    'Ustawiamy plik jako aktywny
    'Windows("RejestrArtykulowDOS.xlsx").Activate
    
    'Kasujemy stary arkusz1
    Application.DisplayAlerts = False
    Workbooks("RejestrArtykulowDOS.xlsx").Worksheets("Arkusz1").Delete
    Application.DisplayAlerts = True
    
    'Tworzymy nowy arkusz
    Workbooks("RejestrArtykulowDOS.xlsx").Worksheets.Add().Name = "Arkusz1"
    
    ' Kopiujemy dane z arkusza1 z zakresu A:T
    Workbooks("RejestrNowychArtykulow.xlsm").Worksheets("Arkusz1").Range("A:T").Copy
    
    'Wklejamy zakres
    'ActiveSheet.Paste
    Workbooks("RejestrArtykulowDOS.xlsx").Worksheets("Arkusz1").Paste
    'Dopasowujemy automatycznie kolumny do danych
    Columns("A:T").EntireColumn.AutoFit
    
    Application.CutCopyMode = False
    Selection.Copy
    
    'Usuwamy zakresy
    Workbooks("RejestrArtykulowDOS.xlsx").Worksheets("Arkusz1").Range("E:E,J:J,M:N,Q:R,T:T").Delete
    
    'Ustawiamy znacznik czasu
    Workbooks("RejestrArtykulowDOS.xlsx").Worksheets("Arkusz1").Range("C1").Value = Now
    
    'Zapisujemy i zamykamy
    Workbooks("RejestrArtykulowDOS.xlsx").Save
    Workbooks("RejestrArtykulowDOS.xlsx").Close
  
  
    
End Sub