Macro para copiar datos de varios libros y pegarlos en varias hojas de un libro nuevo

Hola espero me puedan ayudar gracias
tengo el siguiente código el cual busca los datos de un libro y copia los
datos y los pega en un nuevo libro llamado"resultado" en la hoja2
Sub copia()
Application.ScreenUpdating = False
hoj = "MVER1"
mi = ThisWorkbook.Name
Set h1 = ThisWorkbook.Sheets("hoja2")
archi = Dir("MVER1.xls*")
On Error Resume Next
Do While archi <> ""
If archi <> mi Then
Workbooks.Open archi
If Err.Number = 0 Then
Sheets(hoj).Select
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Copy _
h1.Range("A" & h1.Range("A1").SpecialCells(xlLastCell).Row + 1)
Else
Err.Number = 0
End If
Application.DisplayAlerts = False
Workbooks(archi).Close
Application.DisplayAlerts = True
End If
archi = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "Proceso Terminado"
End Sub
Lo que me falta es como hacer para que también busque otro libro y lo
pegue en la hoja 3, que busque los datos del libro MVER2
y pegue los datos en la hoja3 del otro libro llamado "resultado"
cada vez que corra esta macro se pueda actualizar la información que sobre escriba
la información.
Gracias