command button coding to delete column values

i need coding in a command button ie in commandbutton1_click()
when i click the command button , values from cell A4 to the last filled cell are all deleted, leaving them empty cells.
thanks

thanks, it works perfectly