¿Puede corregir mi macro que saca un resumen diario?

Para Elsa

¿Qué tal Elsa como estas?

Explico mi necesidad, debo abrir 4 libros de los cuales debo obtener la suma de magna, premium y diesel por día y pegarlo en(hoja) el día especifico (01 abril, 02 de abril y así sucesivamente), cada libro siempre inicia los datos en la celda A10 en dicha celda contiene 01/Abr/2017 hasta la A18, pero es variable, en otras ocasiones puede iniciar en A10 Y terminar en A11 y en A12 empezar con 02/Abr/2017 , de antemanos te doy mis más sinceros agradecimientos y estoy al pendiente para cualquier duda.

Sub Cierrediario()

libros = Array("EFECTIVALE", "EDENRED", "ULTRAGAS", "SERVICIO ATITALAQUIA")

'Inicio con 01 de abril y termino hasta el 30 de abril solo para efectos practico puse al día 07

dias = Array("01 Abril", "02 Abril", "03 Abril", "04 Abril", "05 Abril", "06 Abril", "07 Abril")

ruta = ThisWorkbook.Path

librov = "Ventas 2017.xlsx"

If Dir(ruta & "\" & librov) = "" Then   

MsgBox "No se encuentra el libro VENTAS en esta carpeta.... Verifica y vuelve a ejecutar el proceso.", , "ERROR"   

Exit Sub

End If

milibro = ActiveWorkbook.Name

Workbooks.Open ruta & "/" & librov

For i = 0 To 3   

sino = MsgBox("¿Deseas pasar los totales del libro " & libros(i) & "?", vbQuestion + vbYesNo, "CONFIRMAR")   

If sino <> vbYes Then GoTo sigoConOtro   

archivo = ruta & "\" & libros(i) & ".xls"   

MsgBox archivo   

Workbooks.Open archivo, UpdateLinks:=0

'mis datos inician en la celda A10 en dicha celda contiene 01/Abr/2017 hasta la A18, pero es variable, en otras ocasiones puede iniciar en A10 Y terminar en A11 y en A12 empezar con 02/Abr/2017 

diax=day(sheets(1).[a10]   

fini = Range("A" & Rows.Count).End(xlUp).Row   

'necesito obtener los totales de los 3 tipos por día o sea 01 abril 02 abril y así sucesivamente... Hasta llegar al 30 de abril

totm = Application.WorksheetFunction.SumIf(Range("D10:D" & fini), "*MAGNA*", Range("F10:F" & fini))    totp = Application.WorksheetFunction.SumIf(Range("D10:D" & fini), "*PREMIUM*", Range("F10:F" & fini))   

totd = Application.WorksheetFunction.SumIf(Range("D10:D" & fini), "*DIESEL*", Range("F10:F" & fini))

 'ubico el dia(hoja) y pego el resultado   

Workbooks(librov).Sheets(dias(diax - 1)).Range("J" & i + 23) = totm

Workbooks(librov).Sheets(dias(diax - 1)).Range("V" & i + 23) = totp   Workbooks(librov).Sheets(dias(diax - 1)).Range("AH" & i + 23) = totd   

ActiveWorkbook.Close False    

sigoConOtro:

Next i

Workbooks(librov). Save

Workbooks(librov). Activate

MsgBox "FIN DEL PROCESO.", , "INFORMACIÓN"End Sub