supprimer seulement une cellule

bonjour

voici mon code :

Sub supprimeDerVal()
Range("A65536").End(xlUp).Select
If Selection.Value <> "0" Then
Selection.EntireRow.Delete
End If
End Sub

je voudrais effacer seulement la dernière cellule de la colonne A et non pas toute la ligne

je pense qu'il faut remplacer cette ligne : Selection.EntireRow.Delete

pouvez vous m'aider

merci