Macro para copiar unas celdas si cumplen dos condiciones.

Bien tengo una hoja la cual contiene en un listado de información con varias columnas y filas, en la celda A1 contiene un consecutivo único, en B1 tiene un numero cualquiera pero se puede repetir y en las columnas C1, D1, etc contienen otra información.

Necesito que dependiendo del numero que se recibe por inputBox se seleccione los que coinciden del listado anterior y que revise el consecutivo para que no se repitan copiando uno bajo el otro pero las celdas destino deben tener un formato especifico como celdas combinadas que no puede cambiar.