Удаление на листах определенного диапазона - VBA

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

Подскажите пожалуйста, как осуществить удаление на листах со 2 по 7 и только 30 столбцов(и только первые 15 сверху строк) после указанного количества столбцов которые надо сохранить (слева на право от столбца А)? - например 10 первых столбцов надо сохранить на листах со 2-7, все остальное надо удалить в диапазоне 30 столбцов и 15 строк сверху

я написал код удаления строк, но нет удобного варианта чтоб просто указываешь количество в какой-то всплывающей таблички при нажатии макроса и все удалялось

                    Листинг программы
                
Sub qqq()
 
i = 8
    Sheets("лист2").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    Sheets("лист3").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    Sheets("лист4").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    Sheets("лист5").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    Sheets("лист6").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    Sheets("лист7").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    
End Sub

попытался так, не выходит с несколькими листами, только с одной активной

                    Листинг программы
                
 
                        
                          
                    
Sub удаление()
i = Application.InputBox("удаление")
    Sheets("лист2").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    Sheets("лист3").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    Sheets("лист4").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    Sheets("лист5").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    Sheets("лист6").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    Sheets("лист7").Range(Cells(1, i + 1), Cells(15, i + 30)).Delete Shift:=xlToLeft
    
End Sub

Решение задачи: «Удаление на листах определенного диапазона»

textual
                            Листинг программы 
                        
i = Application.InputBox("Удаление", Type:=1)
For c = 2 To 7
    Worksheets("Лист" & c).Cells(1, i + 1).Resize(15, 30).Delete xlToLeft
Next