Удаление определенного диапазона в активной строке

[СтаСС]

С помощью макроса приведенного ниже я нахожу и очищаю сотую с низу строку

Sub MINUS_100()
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(-100).EntireRow.Select
Selection.ClearContents

With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Подскажите пожалуйста как изменить код чтоб удалялась не вся строка а только ее диапазон.. знания у меня в кодах смутные думал достаточно после поиска строки добавить
Range("CD:WUG").Select
Selection.ClearContents
ан нет )))

[Hugo121]

Sub MINUS_100()
    With Intersect(Cells(Rows.Count, 1).End(xlUp).Offset(-100).EntireRow, Range("CD:WUG"))
        .ClearContents
        With .Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End With
End Sub

Если столько строк не будет - будет ошибка.

[СтаСС]

Hugo121 Большое спасибо! А ведь счастье было так близко.. почти горжусь собой ))