Excel - Copiar y pegar un Gráfico

Hola, feliz año nuevo.

Saben, he elavorado una macro que busca datos desde otros archivos.
Es perfecta para lo que necesito.(la adjunto por que alguien me la pidio un día)

¡¡¡¡¡PERO!!!!!

For b = 7 To 13
d = 7
a = Sheets("Datos").Cells(d, b) (se mueve en la fila 7 desde las letra g hasta la...)
Sheets("Datos").Range("d7").Value = a
mes = Sheets("Datos").Range("c8")
año = Sheets("Datos").Range("c7")
Select Case mes
Case 1:
c = "01.- Enero"
Case 2:
c = "02.- Febrero"
Case 3:
c = "03.- Marzo"
Case 4:
c = "04.- Abril"
Case 5:
c = "05.- Mayo"
Case 6:
c = "06.- Junio"
Case 7:
c = "07.- Julio"
Case 8:
c = "08.- Agosto"
Case 9:
c = "09.- Septiembre"
Case 10:
c = "10.- Octubre"
Case 11:
c = "11.- Noviembre"
Case 12:
c = "12.- Diciembre"
End Select
Workbooks.Open ("G:\pablito\clavo\un\01.- Informe Diario\Año " & año & "\" & c & "\Inf." & a & "_V5.xls")
Workbooks("Inf. Dirio" & a & "_V5.xls").Activate
Worksheets("Datos").Activate
Sheets("Datos").Range("C15:E38").Copy
Workbooks("Inf.Nuevo Semanal.xls").Activate
Worksheets("Datos").Activate
Sheets("Datos").Range("c" & k & "").PasteSpecial
Workbooks("Inf.Diario " & a & "_V5.xls").Activate
Worksheets("Datos").Activate
Sheets("Datos").Range("g15:l38").Copy
Workbooks("Inf. Nuevo Semanal .xls").Activate
Worksheets("Datos").Activate
Sheets("Datos").Range("g" & k & "").PasteSpecial
Workbooks("Inf.Diario " & a & "_V5.xls").Activate
Worksheets("Datos").Activate
Sheets("Datos").Range("q15:q38").Copy
Workbooks("Inf. Nuevo Semanal .xls").Activate
Worksheets("Datos").Activate
Sheets("Datos").Range("q" & k & "").PasteSpecial (xlPasteValues)
Workbooks("Inf.Diario " & a & "_V5.xls").Activate
Worksheets("Datos").Activate
Sheets("Datos").Range("s15:s38").Copy
Workbooks("Inf. Nuevo Semanal .xls").Activate
Worksheets("Datos").Activate
Sheets("Datos").Range("s" & k & "").PasteSpecial
Application.DisplayAlerts = False
Workbooks("Inf.Diario " & a & "_V5.xls").Close
Application.DisplayAlerts = True

ñ = ñ + 24
k = k + 24
y = y + 24

........HAY UN MALDITO GRÁFICO QUE NO LO COPIA.

Como hago para copiarlo?????

De antemano muchas gracias.