afbrand

¿Sigues necesitando la ayuda?

Para copiar en otro libro debes especificar la ruta de esta forma: Selection.Copy Destination:=Workbooks("Libro").Sheets("Hoja2").Cells(fila, 1)

Espero poder ayudarte. ¿Cuándo dice que no se ejecuta es que te sale un error o pasa derecho?. Por favor dame más info acerca de eso.

Creo que lo que buscas es esta función: a = Application.WorksheetFunction.Sum(Range("b1:b5"))

Para el primero después de tener el valor en B10 ejecutarías un macro que te busque ese valor en la columna del libro almacen y te de el mensaje esto lo puedes hacer de esta forma: Workbooks("FACTURA"). Activate valor=range("B10").value...