Macro no se repite bien en cada hoja del libro

Buenas tardes
Necesito que esta macro se ejecute en cada hoja de mi libro activo y copie cierta información de cada hoja en otro libro. En el momento solo me copia la hoja activa pero de las otras aunque aparentemente copia por que generala linea en el otro libro solo copia espacios y no los datos. ¿Qué estará mal? ¿Ayuda por favor? Gracias
Sub milton2()
Dim i As Integer
'Creamos el bucle para abrir todas las hojas:
For i = 1 To Worksheets.Count
'Tu codigo en cada hoja
dat1 = Range("B6").Value
dat2 = Range("B10").Value
dat3 = Range("B5").Value
dat4 = Range("E33").Value
dat5 = Range("B44").Value
dat6 = Range("I10").Value
Workbooks.Open Filename:="G:\USUARIOS\GESTIÓN HUMANA\PROCESO DE RECLUTAMIENTO Y SELECCION\INDICADOR\PLANTILLAS\INDICADOR SUMISERVIS.xls"
    Range("A1").Select
Sheets("NUEVO INDICADOR").Select
Range("A2").Select
Do While Not IsEmpty(ActiveCell.Offset(0, 0))
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = dat1
ActiveCell.Offset(0, 1).Value = dat2
ActiveCell.Offset(0, 2).Value = dat3
ActiveCell.Offset(0, 3).Value = dat4
ActiveCell.Offset(0, 6).Value = dat5
ActiveCell.Offset(0, 7).Value = dat6
ActiveCell.Offset(1, 0).Select
ActiveWorkbook.Save
Next 'Para repetir en la siguiente hoja.
End Sub