Macro para realizar un resumen anual

Aquí son dos cosas el problema es que en tus tres libros deberás marcar las facturas ya copiadas para que el programa no las tomes en cuenta 2 de momento me encuentro un poco apretado con el trabajo te paso este código con algunas modificaciones puede funcionar para lo que necesitas básicamente barre una hoja determinada y busca si es el valor mayor a 85 si es así entonces te copia el valor en otra celda de otra hoja
Sub copia_valores()
 On Error GoTo EH
  Dim NHoja As String
  Dim Val As Variant
  Dim i, j As Integer
  ActiveWorkbook.Sheets("Hoja1").Activate
  ActiveSheet.Cells(1, 1).Activate
  i = 1
  While ActiveCell.Value <> ""
   i = i + 1
   If ActiveCell.Value > 85 Then
    ActiveCell.Select
    Selection.Copy
    Sheets("Hoja3").Select
     j = ActiveCell.Row
    While ActiveCell.Value <> ""
     j = j + 1
     ActiveSheet.Cells(j, 1). Activate
    Wend 'While ActiveCell <> ""
    ActiveSheet.Paste
    ActiveWorkbook.Sheets("Hoja1").Activate
   End If 'If ActiveCell.Validation > 85 Then
   ActiveSheet.Cells(i, 1).Activate
  Wend 'While ActiveCell.Value <> ""
  Exit Sub
EH:
 Select Case Err.Number
  Case 1004:
   Resume Next
  Case Else:
   MsgBox Err.Number & "-" & Err.Description
 End Select
End Sub