Descendre à la cellule suivante

Bonjour,
Cela m'embête de vous demander un truc aussi simple mais je viens de débuter dans VBA.

Problème N°1 :
Je m'explique, j'ai une liste de nom de personnes comme ci-dessous et je voudrais utilisé une macro qui me permet de mettre en gras le dernier nom de la personne.

Nom1
Nom1
Nom1 => nom en gras
Nom2
Nom2
Nom2
Nom2 => nom en gras
Nom3
Nom3
Nom3
Nom3 => nom en gras
Nom4
Nom4 => nom en gras

En fait, j'ai un deuxième problème le voici :
Problème N°2 :
Mon nombre de ligne de ma liste est aléatoire toute les semaines donc des semaines je peux avoir 4 noms différents dans ma liste ou d'autres semaines je peux avoir une douzaines de noms différents. Mon problème, ici, est que je n'arrive pas à donner une limite aléatoire à ma macro.

Voici mon essai de macro :

Sub FR_NoircirVendeurs()

Dim Plage As Range
Dim Cellule As Range

Set Plage = Range("B2:...") => mon Problème N°2

For Each Cellule In Plage

If Cellule.Value = Cellule.Offset(1, 0).Value Then
Step 1 => mon problème N° se trouve ici (je pense)
End If
Next Cellule

If Cellule.Value <> Cellule.Offset(1, 0).Value Then
Cellule.Font.Bold = True
End If
Next Cellule

End Sub

J'espère que j'ai été assez clair dans mes explications.
Je vous remercie d'avance pour toutes aides que vous pourrez m'apportées.

Ps : merci à commentcamarche.net qui m'aide dans mon apprentissage à VBA.