Fala pessoal tudo bem??
Estou com uma dificuldade preciso gerar um grafico com as informações de uma planilha porem não estou conseguindo capturar os dados da maneira que desejo.
Abaixo o VBA que eu tentei escrever baseado em um video do YT.
Sub Criando_Graficos2()
Dim ws As Worksheet
Dim ch As Chart
Dim dt As Range
Dim pt As Range
Set ws = ActiveSheet
Set dt = Rows(Cells(2, 3), Cells(2, 26))
Set ch = ws.Shapes.AddChart2(Width:=350, Height:=200, b116").Left, b116").Top).Chart
Set pt = Range(Cells(1, 3), Cells(1, 26))
With ch
.SetSourceData Source:=dt
.ChartType = xlColumnClustered
.ChartTitle.Text = Range("b2")
.SetElement msoElementDataLabelOutSideEnd
.SetElement msoElementPrimaryCategoryAxisTitleBelowAxis
.Axes(xlCategory).AxisTitle.Text = "Comparativo 12 Meses"
.SeriesCollection(1).XValues = pt
End With
End Sub
Abaixo o gráfico como preciso:

Segue gráfico que meu VBA está gerando:

Como os dados estão em minha tabela:

Alguém poderá me ajudar?