¿Cómo restablecer el conteo de gráficos con VBA?

Tengo una macro que copia 14 gráficos en una hoja de gráficos y luego otra macro que analiza los gráficos según el número de gráfico y los elimina según diferentes criterios. El problema es que si elimino todos los gráficos y vuelvo a ejecutar la macro inicial, los gráficos en la hoja de gráficos ahora comienzan en el 15, por lo que la segunda macro ya no funciona. ¿Hay alguna manera de restablecer el recuento de gráficos? o ¿probablemente una forma diferente y mejor de hacerlo?

Sub cut()
Dim x As Integer
Dim i As Integer
Dim q As Date
Dim w As Date
Dim e As Date
Dim r As Date
Dim t As Integer

Sheets("Detalles").Seleccionar
x = HojaActiva.Celdas(56, 2)
i = HojaActiva.Celdas(54, 2)
q = HojaActiva.Celdas(5, 2)
w = HojaActiva.Celdas(40, 2)
e = HojaActiva.Celdas(38, 2)
r = HojaActiva.Celdas(36, 2)
t = HojaActiva.Celdas(57, 2)

Si x = 0 Then
Hojas("Gráficos").ObjetosGraficos("Gráfico 10").Eliminar
End If

Si i = 0 Then
Hojas("Gráficos").ObjetosGraficos("Gráfico 12").Eliminar
Hojas("Gráficos").ObjetosGraficos("Gráfico 13").Eliminar
Hojas("Gráficos").ObjetosGraficos("Gráfico 14").Eliminar
End If

Si q < w Then
Hojas("Gráficos").ObjetosGraficos("Gráfico 4").Eliminar
End If

Si q < e Then
Hojas("Gráficos").ObjetosGraficos("Gráfico 3").Eliminar
End If

Si q < r Then
Hojas("Gráficos").ObjetosGraficos("Gráfico 2").Eliminar
End If

Si q = t Then
Hojas("Gráficos").ObjetosGraficos("Gráfico 9").Eliminar
End If

Si q > t Then
Hojas("Gráficos").ObjetosGraficos("Gráfico 10").Eliminar
End If

Fin Sub