Dovrebbe essere sufficiente sostituire Clear con Delete

codice:
Rows(Target.Row).Clear--> cancella la riga senza eliminarla
Rows(Target.Row).Delete--> elimina la riga