Sub effacetext()
Range( _
"D1,G2,G6,B7,C10:D10,E10,G14,B12,B14:E14,B16,C19:D19,F19:G19,F22:G22,D22,B22,B24:G27,C29,E29,G29,G31,E31,C31,B33:G33,B35:G38,B40,B42,D40,G40" _
).Select
Range("G40").Activate
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 15
Union(Range( _
"D1,G2,G6,B7,C10:D10,E10,G14,B12,B14:E14,B16,C19:D19,F19:G19,F22:G22,D22,B22,B24:G27,C29,E29,G29,G31,E31,C31,B33:G33,B35:G38,B40,B42,D40,G40,B44:G49,B52,B51,A57" _
)).Select
Range("A57").Activate
ActiveWindow.SmallScroll Down:=9
Union(Range( _
"A59,A62,A61,D1,G2,G6,B7,C10:D10,E10,G14,B12,B14:E14,B16,C19:D19,F19:G19,F22:G22,D22,B22,B24:G27,C29,E29,G29,G31,E31,C31,B33:G33,B35:G38,B40,B42,D40,G40,B44:G49" _
), Range("B52,B51,A57")).Select
Range("A61").Activate
ActiveWindow.SmallScroll Down:=-39
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-54
End Sub