Macro-Gerar gráfico de várias tabelas numa plan

[k1000a]

Oi pessoal

 

 

 Já fiquei mega feliz em consegui criar o código abaixo, contudo, não consigo transpor uma dificuldade. 

O que eu desejo é selecionar duas colunas (dentre várias de uma tabela) e com elas criar um gráfico. Ok, o código abaixo faz isso se eu menciono onde começa e termina os valores que eu quero no gráfico, contudo na planilha eu tenho  mais de uma tabela com valores que eu quero gerar. Como 'digo' para o código procurar essas duas colunas nas diversas tabelas? 

 

 

 

 

 

 

Sub camila()





Dim Ult_Linha As Long



Columns("A:A").Select 'comandos para ocultar as colunas que não me interessam

    Selection.EntireColumn.Hidden = True

    Columns("C:D").Select

    Selection.EntireColumn.Hidden = True

    Columns("F:G").Select

    Selection.EntireColumn.Hidden = True



 Plan1.Activate



Ult_Linha = Range("A1048576").End(xlUp).Row 'descobre qual é a última linha

    

 ActiveSheet.Shapes.AddChart.Select 'Adiciona um shape Chart vazio no centro da planilha

    ActiveChart.ChartType = xlXYScatter 'Tipo do Grafico



ActiveChart.SetSourceData Source:=Sheets("Plan1").Range("B2:E" & Ult_Linha) 'seleciona os dados



With ActiveChart ' formatação

    .HasTitle = True

    .ChartTitle.Characters.Text = "Creep 9"

    .Axes(xlCategory, xlPrimary).HasTitle = True

    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Tempo (s)"

    .Axes(xlValue, xlPrimary).HasTitle = True

    .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Creep Angle (rad)"

    .Axes(xlValue).ScaleType = xlLogarithmic

    .Axes(xlValue).CrossesAt = 0.001

    .Axes(xlCategory).Select

    .Axes(xlCategory).ScaleType = xlLogarithmic

    .Axes(xlCategory).CrossesAt = 0.001

    .Axes(xlCategory).CrossesAt = 0.0001

    .Axes(xlValue).Select

    .Axes(xlValue).CrossesAt = 0.0001

    '.PlotArea.Select.Shapes.Line.Visible = msoFalse

   

End With

    End Sub