Windows("gor.xls").Activate 'идем в другую книгу

DayWeek = DatePart("w", Date)  'создаем нов лист c проверкой на дубль
If DayWeek = 6 Then 'если день недели-пятница
strDate = Format(Now + 3, "dd.mm.yy")
Else
strDate = Format(Now + 1, "dd.mm.yy")
End If
          On Error Resume Next
         Set wsSh = Sheets(strDate)
        If wsSh Is Nothing Then Sheets.Add(, Sheets(Sheets.Count)).Name = strDate 'создаем нов лист c проверкой на дубль

Set sh = Sheets("avtclav")

Worksheets("avtclav").Activate
Windows("gor.xls").Activate
       sh.ShowAllData 'снимем все фильтры что враги наставили
              
           Range("A5:bg5").AutoFilter 'фильтр в пятой строке шапка большая
                      
               With sh     
                      
               sh.UsedRange.AutoFilter 44, "АВТОКЛАВ"
               sh.UsedRange.AutoFilter 39, "<>"
                        
               sh.UsedRange.Offset(5).Columns(2).Resize(, 42).SpecialCells(12).Copy wsSh.[A2]
              End With
                  
             With wsSh
               wsSh.Activate
                r = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
              End With
                 
            With sh
           
           sh.ShowAllData
                  
           sh.UsedRange.AutoFilter 44, "АВТОКЛАВ"
               sh.UsedRange.AutoFilter 40, "<>"
                        
                sh.UsedRange.Offset(5).Columns(2).Resize(, 42).SpecialCells(12).Copy wsSh.Cells(r, 1)
              End With
              With wsSh
               wsSh.Activate
                r = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
              End With
                 
               With sh     
               sh.ShowAllData
              
               sh.UsedRange.AutoFilter 44, "АВТОКЛАВ"
               sh.UsedRange.AutoFilter 41, "<>"
                  
               For i = .Cells(.Rows.Count, 2).End(xlUp).Row To 1 Step -1
               .Cells(i, 51) = Now
               Next
                      
               sh.UsedRange.Offset(5).Columns(2).Resize(, 42).SpecialCells(12).Copy wsSh.Cells(r, 1)
              
              End With
                  
             With wsSh
               wsSh.Activate
                r = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
              End With
                 
             With sh            [size=12][b]  'вот тут подскажите[/b][/size]
               sh.ShowAllData
              
               sh.UsedRange.AutoFilter 44, "АВТОКЛАВ"
                    
               For i = .Cells(.Rows.Count, 2).End(xlUp).Row To 1 Step -1
               .Cells(i, 51) = Now + 1
                Next
                End With
                 
                 
               MsgBox r
           Windows("gor.xls").Activate
           wsSh.Activate
                          
               'а в конце в столбике 51 проставить сегодняшнюю дату в каждой строчке
               'и пеhеносит полученную таблицу в файл откуда запускается макрос, ну тут я думаю справлюсь
                      
              
           ScreenUpdating = True