Clear Column Content

Hello I need some help
I want to create a button which if user click it will clear content of that column, reason I want to add button and not manually do it because I have column going from A to DS
Thank you plz help me
ty

create a button and assign the code to it

Sub Delete()
Range("A:DS").clearcontents
end sub

Hey thanx Sadath
I created Button for it and it works like a charm
I wanna know if I have a VBA code and create a button to put the code into that cell if I click on it after clearing contents of it
here is the formula I want to enter in B1

=PISampDat(COUNTER!$C$3,COUNTER!$A$7,COUNTER!$A$9,COUNTER!$A$11,0,"dmspi2p")

ty

Sub FormulaR1C1 ()
Range ("b1").select
ActiveCell.FormulaR1C1 ="=PISampDat(COUNTER!$C$3,COUNTER!$A$7,COUNTER!$A$9,COUNTER!$A$11,0,"dmspi2p")"
end sub