Sub óäàëèòü()
 Dim book1 As Workbook
 Dim B As String
 Dim v As Long
 Dim e As Long
 
 B = "14"
 
 Set book1 = Workbooks.Open("E:\Super M\Ïðîåêò ñòàâêè\Ïîèñê ðåøåíèÿ\Óñîâ 7\Óñëîâèÿ äëÿ àíäåðäîãîâ\" + B + ".xlsm")
 
 For v = 1 To 14
    For e = 0 To 8
     
     
        book1.Worksheets("Ëèñò" & v).Cells(34, 26 + (e * 21)).Resize(128, 5).ClearContents
        
    Next e
 Next v
 book1.Save
 book1.Close
     
   End Sub