Удаление несмежных диапазонов ячеек (Run-time error 1004) - VB

Формулировка задачи:

Хочу удалить содержимое диапазона ячеек “D8:I13” , затем такого же диапазона , но на 15 строк ниже , затем еще на 15 строк ниже и так 55 раз .
Написал код , но выскакивает Run-time error 1004 ( Method ‘Range’ of object’_Global’ failed )

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

Решение задачи: «Удаление несмежных диапазонов ячеек (Run-time error 1004)»

textual
                            Листинг программы 
                        

                            n = 0
 Do Until n = 55
 A = 8 + n * 15
 B = 13 + n * 15
 Range("D" + A + ":I" + B + "").Select
 Selection.ClearContents
 n = n + 1
 Loop

                        