macro pour supprimer toutes les lignes à partir de la ligne A2

Bonjour à tous,

Je souhaiterai réaliser une macro qui me permette de supprimer toutes les lignes d'une feuille mais à partir de la ligne A2.
J'ai le bout de code suivant qui fonctionne mais qui me supprime tout y compris la ligne A1 alors que je souhaite la conserver:

Private Sub CommandButton4_Click()

Application.ScreenUpdating = False


Sheets("Bonbon").Cells.Delete
Sheets("Gateau").Cells.Delete
Sheets("Chocolat").Cells.Delete

Application.ScreenUpdating = True

End Sub

Une idée pour m'éclairer ?

Merci à tous