Macrocon una condición

Buenos días, necesitaba una macro que escribiese por ejemplo una X desde b2 hasta b100, siempre que en le columna A apareciese un 1, ejemplo X en B2 si 1 en A1 etc...
Gracias