Sorting with Buttons

I don't know if I understood you correctly.
In my solution, all cells in the B: G range must be unmerged.
I used helper column 'J' for sorting.
Sorting for "Symbol".

Sub Sort_Symbol()
    Dim lr As Integer
    
    With Application
        .EnableEvents = False
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With
    With Sheets("Journal")
        lr = .Cells(Rows.Count, "B").End(xlUp).Row + 5
        .Range("J6:J" & lr).Formula = "=INDEX(B:B,AGGREGATE(15,6,ROW($B$1:$B$600)/" _
                & "($B$1:$B$600=""Symbol""),COUNTIF($B$5:B6,""Symbol""))+1)"
        With Sheets("Journal").Range("B6:J" & lr)
                   .Sort Key1:=.Cells(1, 9), order1:=xlAscending, _
                           Header:=xlGuess
        End With
        .Columns("J").ClearContents
    End With
    With Application
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

Sorting for "Entry Date".

Sub Sort_Entry_Date()
    Dim lr As Integer
    
    With Application
        .EnableEvents = False
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With
    With Sheets("Journal")
        lr = .Cells(Rows.Count, "B").End(xlUp).Row + 5
        .Range("J6:J" & lr).Formula = "=INDEX(C:C,AGGREGATE(15,6,ROW($B$1:$B$600)/" _
                & "($B$1:$B$600=""Symbol""),COUNTIF($B$5:B6,""Symbol""))+1)"
        With Sheets("Journal").Range("B6:J" & lr)
                   .Sort Key1:=.Cells(1, 9), order1:=xlAscending, _
                           Header:=xlGuess
        End With
        .Columns("J").ClearContents
    End With
    With Application
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

Hello jeffcp66,

I made a few changes to your macro and this version worked for me.

Sub Sort_Jumper_Symbol()

    Dim symb    As Range
    Dim entr    As Range
    Dim Jump    As Range
    Dim srtRng  As Range

        Set Jump = ActiveSheet.Buttons(Application.Caller).TopLeftCell
        Set symb = Jump.Offset(1, 0)
        Set entr = Jump.Offset(1, 1)
        
        Set srtRng = Jump.Offset(2, 0).CurrentRegion
        Set srtRng = Intersect(srtRng, srtRng.Offset(1, 0))
        
        With ActiveSheet.Sort
            .SortFields.Clear
            .SortFields.Add Key:=symb, SortOn:=xlSortOnValues, Order:=xlAscending
            .SortFields.Add Key:=entr, SortOn:=xlSortOnValues, Order:=xlAscending
        
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SetRange srtRng
            .Apply
        End With

        Jump.Offset(1, 0).Select

End Sub

Hello jeffcp66,

Here is the amended macro code to include columns "A:G".

Sub Sort_Jumper_Symbol()

    Dim symb    As Range
    Dim entr    As Range
    Dim Jump    As Range
    Dim srtRng  As Range
    
        Set Jump = ActiveSheet.Buttons(Application.Caller).TopLeftCell
        Set symb = Jump.Offset(1, 0)
        Set entr = Jump.Offset(1, 1)
        
        Set srtRng = Jump.Offset(2, 0).CurrentRegion.Offset(0, -3)
        Set srtRng = Intersect(srtRng, srtRng.Offset(2, 0))
        
        With ActiveSheet.Sort
            .SortFields.Clear
            .SortFields.Add Key:=symb, SortOn:=xlSortOnValues, Order:=xlAscending
            .SortFields.Add Key:=entr, SortOn:=xlSortOnValues, Order:=xlAscending
        
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SetRange srtRng
            .Apply
        End With

        Jump.Offset(1, 0).Select

End Sub

Hello jeffcp66,

I was out most of the day on other jobs. Here is the amended macro code...

Sub Sort_Jumper_Symbol()

    Dim symb    As Range
    Dim entr    As Range
    Dim Jump    As Range
    Dim srtRng  As Range
    
        Set Jump = ActiveSheet.Buttons(Application.Caller).TopLeftCell
        Set symb = Jump.Offset(1, 0)
        Set entr = Jump.Offset(1, 1)
        
        Set srtRng = Jump.CurrentRegion
        Set srtRng = srtRng.Offset(1, -3).Resize(ColumnSize:=srtRng.Columns.Count + 3)
        
        With ActiveSheet.Sort
            .SortFields.Clear
            .SortFields.Add Key:=symb, SortOn:=xlSortOnValues, Order:=xlAscending
            .SortFields.Add Key:=entr, SortOn:=xlSortOnValues, Order:=xlAscending
        
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SetRange srtRng
            .Apply
        End With

        symb.Select

End Sub