Есть простой макрос:  
 
Sub Delete()  
   Range("D10:AH18").Select  
   Application.CutCopyMode = False  
   Selection.ClearContents  
End Sub  
 
Как не вручную сделать что бы он очищал не только D10:AH18,  
но и все диапазоны (в пределах с D по AH) начинающиеся со строки оканчивающейся нулём - по строку оканчивающуюся восьмёркой до указанной строки?  
Т.е. :  
D20:AH28  
D30:AH38  
D40:AH48 и т.д...  
Останов скажем на строке 258.  
 
Спасибо.