run-time error '50290' Method 'Select' of object 'range' failed

Good day its my first macro and vba and spent a whole night still keep getting this error when i run it 

Sub Button1_Click()

'

'

Button1_Click Macro

'

'

Range("A5").Select

Selection.ClearContents

End Sub