Macro Excel 2003: buscar y copiar a otra hoja

Aquí tienes la macro. Te busca los valores de la columna A de la hoja1 del libro activo en otro archivo que abras en la columna A de la primera hoja del segundo archivo. Además la macro va equipada para pedirte que abras el segundo archivo que tu quieras y lo cerrará cuando termine el proceso.

(Recuerda finalizar y puntuar por favor)

Sub buscar()

primero = ActiveWorkbook.Name

fichero = Application.GetOpenFilename

If fichero = False Then Exit Sub

Workbooks.Open fichero

segundo =ActiveWorkbook.Name

Workbooks(primero).Activate

Sheets(1).Select

Range("a2").Select

Do While ActiveCell.Value <> ""

valor = ActiveCell.Value

Set busca = Workbooks(segundo).Sheets(1).Range("a2:a" & Range("a65000").End(xlUp).Row).Find(valor, LookIn:=xlValues, lookat:=xlWhole)

If Not busca Is Nothing Then

ActiveCell.Offset(0, 1).Value = busca.Offset(0, 1).Value

End If

ActiveCell.Offset(1, 0).Select

Loop

Workbooks(segundo).Close False

End Sub

Lo acabo de probar pero sólo ha completado una única celda. Para que te hagas una idea tengo un primer fichero donde en la columna A hay 59 celdas con datos que tengo que cotejar sobre un segundo fichero donde existen 4.000 celdas con valores en la columna A y con un segundo valor en la columna B. Necesito una macro que complete en el primer fichero el segundo valor para las 59 celdas.

Al ejecutar la macro he conseguido completar el valor para la celda situada en la posición B52 del primer libro y correspondía con los valores de las celdas A3 y B3 del segundo libro.