Help with Code for clearing a column please

[jazz56]

Hi
I created a button to clear text in a column.
every time I try recording a macro for it I get different results
I would like to clear text in column B from B3 down

Thia is my last attempt

Sub ClearInfoB()
'
' ClearInfoB Macro
'

'
    ActiveCell.Offset(-23, 0).Range("A1:A52").Select
    Selection.ClearContents
End Sub

It puts me half way down Column D witch is blank
What do I change


TIA