Need to plot a range without inner quotes

[kosmoclone]

Hi,
I'm trying to plot a range of numbers:
Col G Col H
10 4.5
20 6
30 8.3

I'm selecting the data using
[G9].select
selection.End(xlDown).select
k = ("G9:" & "G" & Activecell.Row)

[H9].select
selection.End(xlDown).select
o = ("H9:" & "H" & Activecell.Row)

Range(k,0).select
'This will actually be viewed as Range("G9:G13","H9:H13") and I need it to be: Range("G9:G13, H9:H13) 'Notice the inner quotes are gone'

Activesheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter

I want the 10,20,30 column to be the X axis values and not to be plotted.

Thanks.

 

[kosmoclone]

I have tried to record a macro but there is limited information there and if I try to run the recorded macro it will plot both columns which is incorrect. It will plot correctly in VB if the range is range("G9:G13, I9:I13") with the quotes missing between G13 and I9.

Here is the code that inserts the plot:

Sub plot2()
Dim k, o, t1 As string


k = Range("G9").End(xlDown).Row
o = Range("H9").End(xlDown).Row
Range("G9:G" & k & ",H9:H" & o).Select


ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter

Followed by some formatting options.

Thanks.

 

[kosmoclone]

Hi,

I figured out that I need the following line of code after creating the XYscatter:
ActiveChart.SetSourceData Source:=Range(k, o)

Thanks.