DVA Clear Botn Debug Error

[spacedad41]

I have copy and clear button on my excel page however my clear is giving me a debug message. Posting code below

Sub Copy8hr()
'
' Copy8hr Macro
'

'
Range("A1:j46").Select
Selection.Copy
End Sub
Sub Clear8hrButyric()
'
' Clear8hrButyric Macro
'

'
Range("B3:c6").Select
Selection.ClearContents
Range("e1:e3").Select
Selection.ClearContents
Range("B9").Select
Selection.ClearContents
Range("B12").Select
Selection.ClearContents
Range("B15").Select
Selection.ClearContents
Range("b18").Select
Selection.ClearContents
Range("b21").Select
Selection.ClearContents
Range("B24").Select
Selection.ClearContents
Range("b27").Select
Selection.ClearContents
Range("b30").Select
Selection.ClearContents
Range("B33").Select
Selection.ClearContents
Range("b36").Select
Selection.ClearContents
Range("f4:j7").Select
Selection.ClearContents
Range("a42:j46").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=9
Range("A27").Select
ActiveWindow.SmallScroll Down:=-12
End Sub
Sub Copy4hrButyric()
'
' Copy4hrButyric Macro
'

'
Range("A1:I38").Select
Selection.Copy
End Sub
Sub Clear4hr()
'
' Clear4hr Macro
'

'
Range("B3:d6").Select
Selection.ClearContents
Range("B9").Select
Selection.ClearContents
Range("B15").Select
Selection.ClearContents
Range("B18:b19").Select
Selection.ClearContents
Range("A24:A27").Select
Selection.ClearContents
Range("A30:C38").Select
Selection.ClearContents
Range("A24").Select
ActiveWindow.SmallScroll Down:=-12
End Sub
Sub CopyHB()
'
' CopyHB Macro
'

'
Range("A1:j19").Select
Selection.Copy
End Sub
Sub ClearHB()
'
' ClearHB Macro
'

'
Range("B3:c6").Select
Selection.ClearContents
Range("B9").Select
Selection.ClearContents
Range("B11").Select
Selection.ClearContents
Range("B12").Select
Selection.ClearContents
Range("A17:C19").Select
Selection.ClearContents
Range("B3").Select

End Sub

 

[Anthony47]

Which message do you receive and on which line? Is the "active" worksheet protected?
Please use "tags", they improve the readability of your code.

It will not fix the error, but note that you can replace all those Range(Xx:Yy).Select /Selection.ClearContents with a neater

Range("Xx:Yy").ClearContents