Foro Excel

Buenas a todos, Estoy realizando una sencilla hoja de excel que comprende de Lunes a Viernes (un dia una pestaña) y quiero realizar un sumatorio de unos valores comprendidos en una serie de celdas (Ej. A1, A2,A3,A4) y pasarlas a otra pestaña llamada resultados, lo que no se como hacer es como recoger los valores de cada pestaña, se recorrerlos con este pequeño trozo de codigo, pero no se como ir de pestaña a pestaña cogiendo los valores y sumandolos

Private Sub CommandButton1_Click()
i = 7
Do While Hoja1.Cells(i, 6) <> Empty
MsgBox ("igual a : " & Hoja1.Cells(i, 6))
i = i + 1
Suma = Suma + Hoja1.Cells(i, 6)
Loop
res = MsgBox("No se encuentran mas resultados !!!", vbInformation, "Informacion ...")
End Sub

Muchas gracias por sus consejos y por su ayuda !!!

Hola:

No me queda claro lo que pretendes.

Sube un archivo con un ejemplo para que quede mas claro.

Saludos.