Etiquetado de productos

Hola tengo que resolver lo siguiente:
Private Sub CommandButton100_Click()

cbo_Nombre.Text = Sheets("Relevamiento").Range("A2")
CommandButton1_Click
cbo_Nombre.Text = Sheets("Relevamiento").Range("A3")
CommandButton1_Click

end sub

NOta: Necesito ejecutar este CommendButton100_Click para que busque el dato de A2 si hay, ejecute el commanButton1 y luego vuelva a buscar A3 y asi sucesivamente hasta que no encuentre datos en la columna A.

estaría agradecido si pueden solucionar esto.

saludos.