Private Sub Workbook_Open()
Dim nazwa As String
Dim filesys
Set filesys = CreateObject("Scripting.FileSystemObject")

    Columns("A").ColumnWidth = 12
    Columns("B").ColumnWidth = 9
    Columns("C").ColumnWidth = 7
    Columns("D").ColumnWidth = 10
    Columns("E").ColumnWidth = 8
    Columns("F").ColumnWidth = 34
    Columns("G").ColumnWidth = 7
    Columns("H").ColumnWidth = 10
    Columns("I").ColumnWidth = 11
    Columns("J").ColumnWidth = 13
    Columns("K").ColumnWidth = 18
    Columns("L").ColumnWidth = 13
    Columns("M").ColumnWidth = 14
    Columns("N").ColumnWidth = 5
    Columns("O").ColumnWidth = 5
    Columns("P").ColumnWidth = 10
    Columns("Q").ColumnWidth = 15
    Columns("R").ColumnWidth = 11
    Columns("S").ColumnWidth = 14
    Range("A1").Select
    
    If ActiveSheet.AutoFilterMode Then
    ActiveSheet.AutoFilterMode = False
    End If
    
   'Otwieramy raport dla DOS
    
    Workbooks.Open Filename:="\\192.168.100.44\Dokumenty działowe\DOS\Wyjazdy_2016\Wyjazdy 2016D.xlsm"
    
    ' Kopiujemy dane z arkusza1 z zakresu A:T
    Workbooks("Wyjazdy 2016B.xlsm").Worksheets("WYJAZDY 2016 sty-mar").Range("A:S").Copy
    
    'Wklejamy zakres
    'ActiveSheet.Paste
     Range("A1").Select
     Workbooks("Wyjazdy 2016D.xlsm").Worksheets("WYJAZDY 2016 sty-mar").Paste
    
    
    
    'Zapisujemy i zamykamy
    Workbooks("Wyjazdy 2016D.xlsm").Save
    Workbooks("Wyjazdy 2016D.xlsm").Close
  
End Sub