Erro de Macro em gráfico

Boa noite!

Estou precisando de uma grande ajuda para corrigir um erro na macro de um gráfico.

A macro segue abaixo:

Sub Ano_2016()
'
' Ano_2016 Macro
'

'
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveSheet.ChartObjects("Gráfico 1").Activate
ActiveChart.SetSourceData Source:=Sheets("COMPARATIVO 2014 X 2015").Range( _
"D137:G137,D162:G173")


End Sub

O erro é neste endereço:

ActiveChart.SetSourceData Source:=Sheets("COMPARATIVO 2014 X 2015").Range( _
"D137:G137,D162:G173")


A mensagem exibida é esta:

ERRO EM TEMPO DE EXECUÇÃO "40036":
ERRO DE DEFINIÇÃO DE APLICATIVO OU DE DEFINIÇÃO DE OBJETO

Quem puder me ajudar, agradeço muito.

Att.