supprimer cellule

Re-Bonsoir une petite aide SVP je voudrais supprimer les cellules de A à G mon code me supprime la ligne entiere
Merci

Private Sub Supprimer_Click()
Dim Msg As String, Style, Title As String, MyValue As Variant
'Vérification avant suppression
Msg = " Voulez-vous vraiment supprimer cette ligne ?" & Chr(10) _
& " " & Chr(10)
Style = vbOKCancel + vbCritical + vbDefaultButton2 ' Définit les boutons.
Title = "VERIFICATION AVANT SUPPRESSION !" ' Définit le titre.
MyValue = MsgBox(Msg, Style, Title)
If MyValue = 2 Then Exit Sub

' Suppression de la ligne
ActiveCell.EntireRow.Delete
Unload Me
End Sub