How would I delete the values of cells from A3 to the end of the list?

[kbj0109]

Does anyone can fix my code?
I'm trying to delete all the values from A3 to the end of list in A column.

This is my currnet code that is not working right now...
Hope anyone can find it out..



Range("A3").End(xlDown).Delete

 

[joe.muckle]

Try

Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents

 

[MARK858]

Possibly

Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents

 

[FDibbins]

Maybe this...

Sub range_select()
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
End Sub