Удаление содержимого ячеек

[spirit-ua]

Всем Привет!

Уважаемые форумчане, "помогите" написать макрос.

Нужно проверать столбик "D", если значение в ячейке <=50 то очищать эту ячейку и соответствующие ячейки E,F,G,H в строке...

Чесно говоря в макросах я тугой, просмотрел несколько примеров но не получается...

Макрос для школьника но...помогите, плиз...

[nilem]

Sub tt()
Dim rng As Range, r As Range
Set rng = Range("D1", Cells(Rows.Count, 4).End(xlUp))
For Each r In rng.Cells
    If r.Value <= 50 Then r.Resize(, 5).ClearContents
Next r
End Sub

[Казанский]

Sub spirit_ua()
Dim c As Range
For Each c In Intersect(Columns("D"), ActiveSheet.UsedRange)
    If c <= 50 Then c.Resize(, 5).ClearContents
Next
End Sub

[spirit-ua]

nilem, Казанский Спасибо!