Sub удалитьссылки()
 Dim book1 As Workbook
 Dim A As String
 Dim B As String
 
 Set book1 = Workbooks.Open("E:\Super M\Проект ставки\Решение\цифирь.xlsx")
 A = "8+n*15"
 B = "13+n*15"
 
 'переходим в активную страницу откуда надо скопировать данные
 book1.Worksheets("Лист1").Activate
 
 n = 0
 Do Until n = 55

 Range("D" + A + ":I" + B + "").Select
 Selection.ClearContents
 n = n + 1
 Loop
 End Sub