Excel - obtener multiples resultados de una ecuacion matematica

macros excel: deseo remplazar el valor de una celda varias veces con datos de una columna de otra hoja, para obtener todos los resultados calculados en otra nueva hoja ordenados en una columna.

ejemplo :
Sheets("Hoja1").Range("E1") = Val(Sheets("Hoja2").Range("A1"))
Sheets("Hoja3").Range("A1") = Sheets("Hoja1").Range("A1")
Sheets("Hoja1").Range("E1") = Val(Sheets("Hoja2").Range("A2"))
Sheets("Hoja3").Range("A2") = Sheets("Hoja1").Range("A1")
Sheets("Hoja1").Range("E1") = Val(Sheets("Hoja2").Range("A3"))
Sheets("Hoja3").Range("A3") = Sheets("Hoja1").Range("A1")
Sheets("Hoja1").Range("E1") = Val(Sheets("Hoja2").Range("A4"))
Sheets("Hoja3").Range("A4") = Sheets("Hoja1").Range("A1")

esto lo resuelve pero lo malo es que tengo q repetir varias veces los codigos, como generalizar con un bucle dicha operacion????

estare muy agradecido por su colaboracion estimados, gracias anticipadamente