ReversePlotOrder throws Label to opposite side

[wasabi]

I'm creating a macro that creates a graph. However, the Y-value of one of the lines is always negative but approaching zero and the other is always positive and increasing, so I used ReversePlotOrder = True for the former. That way the graphs are easy to distinguish: one goes up, the other goes down.

However, I've hit a bump. ReversePlotOrder = True throws the Title of the X axis to the top of the graph.

Here's the code:

Sub Graph()
'Application.ScreenUpdating = True
Application.ScreenUpdating = False
With ActiveWorkbook.Worksheets(2)
    ActiveWorkbook.Worksheets(2).Activate
    Range("X2").End(xlDown).Activate
    Set LstCl = ActiveCell
    'SIGYxPORO
    Set Rng1 = Range("X2", LstCl)
    Set Rng2 = Range("AA2", Cells(LstCl.Row, LstCl.Column + 3))
    Set Rng3 = Range("Z2", Cells(LstCl.Row, LstCl.Column + 2))
    Set Rng4 = Range("AC2", Cells(LstCl.Row, LstCl.Column + 5))
    Set Rng = Union(Rng1, Rng2, Rng3, Rng4)
    Sname = Range("A1").Parent.Name
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Rng, PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:=Sname
    ActiveChart.HasTitle = False
    With ActiveChart
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "STEP"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "SIGY"
        .Axes(xlValue).ReversePlotOrder = True
    End With
End With
Application.ScreenUpdating = True
End Sub

That's just a small part of the code, but it works.

So my question is, how can I move the X-axis Title back down?

 

[wasabi]

I just printscreened this to show the difference. The graph on the left has the x-axis' title on top. The one to the right has it on the bottom, alongside the actual x-axis values. They were both created by the same macro, the only difference being that, on the left ReversePlotOrder = True and, to the right, = False.

I've even step-by-stepped the macro and it's quite clear that the problem is ReversePlotOrder.

Oh, and no, STEP is not the title of the graph on the left, obviously.

 

[NTurnbullJr]

ActiveChart.Axes(xlCategory).Select
Selection.TickLabelPosition = xlHigh