Sub DeleteEntireRow()
Selection.EntireRow.Delete
End Sub