command button coding to delete column values

Maybe this?

Sub Button1_Click()

    Dim rng As Range
    
    Set rng = ActiveSheet.Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row)
    
    rng.Value = ""
    
End Sub

Greg