Norman Jones wrote

Sub ClearCells()
Dim Rng As Range

Set Rng = Range("A1:A20") '<<==== CHANGE

Rng.Clear

End Sub


Jumping in late here so don't know the OP's intent, but it seems fair to
point out that .Clear as opposed to .ClearContents clears everything,
including borders, Conditional Formatting, etc.

--
David