Macro para copiar datos de varios libros y pegarlos en un libro nuevo en las hojas 1 y 2

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, quiero que también busque los datos del libro MVER2
y pegue los datos en la hoja3 del otro libro llamado "resultado"
y también que cuando copie la información al nuevo libro siempre los pegue en al inicio A1 ya que si borro la información de la hoja2 y vuelvo a correr la macro pega los datos en la ultima celdaque tiene registro

Gracias