Sub clean_1()
    Range("D9:D19").Select
    Selection.ClearContents
    Range("D23:D29").Select
    Selection.ClearContents
    Range("D33:D42").Select
    Selection.ClearContents
    Range("D46:D54").Select
    Selection.ClearContents
    Range("D58:D63").Select
    Selection.ClearContents
    Range("D67:D69").Select
    Selection.ClearContents
    Range("D73:D74").Select
    Selection.ClearContents
    Range("D78:D79").Select
    Selection.ClearContents
    Range("D83:D91").Select
    Selection.ClearContents
    Range("D95:D112").Select
    Selection.ClearContents
    Range("D116:D117").Select
    Selection.ClearContents
    Range("D121:D129").Select
    Selection.ClearContents
    Range("D133:D134").Select
    Selection.ClearContents
    Range("D138:D141").Select
    Selection.ClearContents
    Range("D145:D147").Select
    Selection.ClearContents
    Range("D151:D152").Select
    Selection.ClearContents
    Range("D156:D159").Select
    Selection.ClearContents
    Range("D163:D171").Select
    Selection.ClearContents
    Range("D175:D194").Select
    Selection.ClearContents
    Range("D198:D201").Select
    Selection.ClearContents
    Range("D205").Select
    Selection.ClearContents
    Range("D209:D213").Select
    Selection.ClearContents
    Range("D217:D220").Select
    Selection.ClearContents
    Range("D224:D230").Select
    Selection.ClearContents
    Range("D234:D237").Select
    Selection.ClearContents
    Range("D241:D247").Select
    Selection.ClearContents
    Range("D251:D254").Select
    Selection.ClearContents
    Range("D258:D263").Select
    Selection.ClearContents
    Range("D267:D272").Select
    Selection.ClearContents
    Range("D276:D278").Select
    Selection.ClearContents
    Range("D282:D286").Select
    Selection.ClearContents
    Range("D290:D291").Select
    Selection.ClearContents
    Range("D295:D297").Select
    Selection.ClearContents
    Range("D301:D305").Select
    Selection.ClearContents
    Range("D309:D310").Select
    Selection.ClearContents
    Range("D314:D315").Select
    Selection.ClearContents
    Range("D319:D321").Select
    Selection.ClearContents
    Range("D325:D327").Select
    Selection.ClearContents
    Range("D331:D334").Select
    Selection.ClearContents
    Range("D338:D341").Select
    Selection.ClearContents
    Range("D345").Select
    Selection.ClearContents
    Range("D349").Select
    Selection.ClearContents
    Range("D353:D354").Select
    Selection.ClearContents
    ActiveWindow.ScrollRow = 8
End Sub