Copier dans une cellule pleine la cellule du dessus

Bonjour,

J'ai un fichier excel avec des sous-totaux : à chaque ligne du sous-total apparaît "Total FP"; or doit apparaître la mention "FP".
A priori , c'est modifiable manuellement mais il s'agit d'élaborer une macro.
Débutant en VBA(une semaine) , je pense m'orienter soit vers une solution qui compte les lignes du bas vers le haut , similaire à celle-ci qui compte les lignes vides et les comble avec le contenu des cellules du dessus:
Sub compléter()
X = [B65536].End(3).Row
For Each c In Range("A1: A" & X).SpecialCells(xlCellTypeBlanks)
c.Value = Range(c.Address).End(3).Value
Next
For Each c In Range("B1: B" & X).SpecialCells(xlCellTypeBlanks)
c.Value = Range(c.Address).End(3).Value
Next
End Sub
Soit vers une solution Privatesub worksheet change_byval target as range.
Laquelle est la meilleure? Y en-a-til une autre ?
Merci! Et continuez , vous assurez!