Gráfico rango valores XY y no series diferentes

Tengo una pregunta en la que tal vez me puedas ayudar y es la siguiente:
Cuando la macro realiza el gráfico asigna las dos columnas seleccionadas como series diferentes, lo que busco es que la primera columna corresponda al eje POR y la segunda columna sea asignada como valores de Y, como una sola serie.
Sub histograma_basado_en_valores()
' Macro1 Grafico histograma valores lineales
' Keyboard Shortcut: Ctrl+q
'--------------------------------------------
Range("C2:D2").Select
Range(Selection, Selection.End(xlDown)).Select
' ActiveWindow.LargeScroll Down:=-4
nombre = ActiveSheet.Name
' asignacion de una variable para contar las lineas escritas/seleccionadas
nofr = Cells(1, 1).CurrentRegion.Rows.Count
' MsgBox nofr
'--------------------------------------------
Charts.Add
ActiveChart.SetSourceData Source:=Sheets(nombre).Range("c2:d" & nofr), PlotBy:=xlColumns
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.Location Where:=xlLocationAsObject, Name:=nombre
ActiveChart.HasTitle = True
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False
'--------------------------------------------
' ELIMINAR LA SEGUNDA SERIE DE VALORES
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Delete
'ActiveChart.SeriesCollection(2).XValues = "=nombre!R2C3:R254C3"
'ActiveChart.SeriesCollection(2).Values = "=nombre!R2C4:R254C4"
end sub
las dos lineas en negritas son las que me dan problema, sin embargo, pienso que debe faltarme una instruccion o pedazo de comando luego de adicionar el grafico, tal vez en la definicion del tipo de grafico.
muchas gracias de antemano
CD