Option Explicit

Sub Ģąźšīń 1 ()
Dim Q As String, W As String
Dim A As Integer, S As Integer
A =  0 
S =  0 

    Q = ActiveSheet.Name
    A = Val(Q)
        
    W = ActiveCell
    S = Val(ActiveCell)
    
    Sheets.Add
    ActiveSheet.Name = A & "_" & S
    SortSheets
    End Sub

Sub SortSheets()
Dim SheetNames() As String
Dim SheetCount As Integer
Dim i As Integer
    SheetCount = ActiveWorkbook.Sheets.Count
    ReDim SheetNames( 1  To SheetCount)
        For i =  1  To SheetCount
           SheetNames(i) = ActiveWorkbook.Sheets(i).Name
           Debug.Print SheetNames(i)
        Next i
    Call BubbleSort(SheetNames)
    For i =  1  To UBound(SheetNames)
    Sheets(SheetNames(i)).Move after:=Sheets(Sheets.Count)
    Next
End Sub


Sub BubbleSort(List() As String)
Dim First As Integer, Last As Integer
Dim i As Integer, j As Integer
Dim Temp As String
    First = LBound(List)
    Last = UBound(List)
        For i = First To Last -  1 
            For j = i +  1  To Last
                If List(i) > List(j) Then
                    Temp = List(j)
                    List(j) = List(i)
                    List(i) = Temp
                End If
            Next j
        Next i
End Sub

       For i =  1  To SheetCount
           SheetNames(i) = ActiveWorkbook.Sheets(i).Name
           Debug.Print SheetNames(i)
        Next i

Debug.Print SheetNames(i)