Recopie de nom

Bonjour,

Débutant sur VBA, j'aimerais pouvoir effectuer un code qui me permet d'effectuer une recopier du libellé (colonne F) en fonction du numero de pièce (colonne H).

J'ai effectué ce code:

Sub selection2()

Dim r As Range


    For Each r In ActiveSheet.Range("F2", ActiveSheet.Range("F65000").End(xlUp))
        
        If r = "" Then _
        r.Value = r.Offset(1, 0).Value
    Next r

End Sub

Mais il faut appuyer plusieurs fois sur le boutons pour que la recopie se fasse

Merci par avance pour vos retours