Como eliminar Error 1004 con pasteSpecial?

Tengo la siguiente macro, pero me arroja error 1004 en la línea de pegado especial

Sub consolidar_archivos()

mio = ActiveWorkbook.Name
ChDir "c:\FB\"
archi = Dir("*.xl*")
Do While archi <> ""

FILA = Workbooks(mio).Sheets(1).Range("a65000").End(xlUp).Row + 1

Workbooks.Open archi
nombrearchi = ActiveWorkbook.Name

Sheets("Ficha").Range("A2:CR100").Copy

Application.DisplayAlerts = False
ActiveWorkbook.Close False

  
While ActiveCell.Value <> "" 'Busca la ultima fila
 ActiveCell.Offset(1, 0).Select 'si la celda contiene datos, pasa a la fila siguiente
Wend
 ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

archi = Dir()
Loop

Application.ScreenUpdating = True
MsgBox " FIN ", vbInformation

End Sub