filtering exact match figures with opposite sign

Hi, I am a new user of excel to be truth. I am still learning how to use the macro function. hope that you guys can help me solve my problem that I am currently having.

So lets say I have a huge data and in that specific one column in the data will have few numbers that have the exact figures but they have different signs. and I only need numbers in that one column to match with each other and filter them together.

For example in that specific column:

100
23
56
-100
-23
-56

and I want it to be like this :

100
-100
23
-23
56
-56

How can I create a macro that can filter the numbers to match it together and bring along with the whole row as well?

it better to use a helper column beside at that specific column and use formula =abs(rc[-1]), then run sort

well yah indeed that is true. It is much easier to make up another column of it.

btw, how to ensure that the sorting column can sort any amount of data? because now currently the range is on specific to what I did during sorting.

PHP Code: 

Sub Macro5()
'
' Macro5 Macro
'

'
    Range("S2").Select
    ActiveCell.FormulaR1C1 = "=ABS(RC[-5])"
    Range("S2").Select
    Selection.AutoFill Destination:=Range("S2:S27")
    Range("S2:S27").Select
    Columns("S:S").Select
    ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet3").Sort.SortFields.Add Key:=Range( _
        "S2:S100005"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet3").Sort
        .SetRange Range("A1:S100005")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub