remplir des cellules de gauche à droite en vba

bonjour à tous
Ce code me permet de mettre des infos dans une colonne de la ligne 10 jusqu'à la première cellule pleine.
Je voudrais faire la même chose sur une ligne.
Exemple foot de trouverai en B2 et les infos recherchée s'inscrirait en b3,b4,b5... es-ce possible?
j'ai essayé de remplacer xlUp par left mais, ça n'a pas l'air de marcher

Select Case x
Case "foot"

.Cells(2, 2).Offset(10, 0).End(xlUp).Offset(0, 1) = x.Offset(0, -8) & " " & x.Offset(0, -7)
Merci pour vos réponse
a+
Gérard