Visual Basic para Aplicaciones - poner resultado en un libro diferente de trabajo

Hola
Estoy haciendo una macro para Excel en el primer libro obtengo promedios y necesito que se muestren los resultados en el libro2 en las celda A2, B,2, y C2. podían ayudarme.

Gracias.

Esta macro toma promedios calculados en libro1 y los eja en libro2.

Sub prueba()

' ambos libros deben están abiertos
' los promedios se encuentran en las celdas G2,G3 y G4 y así

For i = 1 To 3
Workbooks("libro1.xls").Activate
promedio = Cells(i + 1, 7)
Workbooks("libro2.xls").Activate
Cells(i + 1, 1) = promedio
Next

End Sub