VBA:プロシージャ呼び出し時の構文エラー

Question

前提・実現したいこと

VBAでソート、特定文字列を置換する機能をプロシージャとして実装中に構文エラーが発生しました。　
プロシージャ呼び出し部分がエラーとなっています。

エラー原因・対策おわかりのかたいたらご教示いただけると助かります。

該当のソースコード

Sub auction_anaytics_graph()
 
 
 Dim OS As Worksheets
 Set OS = ThisWorkbook.Sheets(Sheets.Count)
 
 Dim LastRow As Long
 LastRow = OS.Cells(Rows.Count, 1).End(xlUp).Row
 
 Sort_auc(OS, LastRow)　　　　　　'エラー箇所
 Change_under10per(OS, LastRow)　'エラー箇所
 
End Sub

Sub Sort_auc(S As Worksheets, LRow As Long)

    With S.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("A3"), Order:=xlAscending
        .SetRange Range(Cells(3, 1), Cells(LRow, 1))
        .Header = xlYes

        .Apply
    End With

End Sub

Sub Change_under10per(S As Worksheets, LRow As Long)

    Dim i As Long
    
    For i = 4 To LRow
        
        S.Cells(i, 3) = Replace(S.Cells(i, 3), " ", "")
        S.Cells(i, 3) = Replace(S.Cells(1, 3), "　 ", "")
        S.Cells(i, 3) = Replace(S.Cells(1, 3), "未満", "")
    Next i
    
End Sub

試したこと

構文エラーの一般的な原因を調べても解決せず。

補足情報（FW/ツールのバージョンなど）

ver Exce2013

Answer 1

 Sort_auc OS, LastRow
 Change_under10per OS, LastRow

でしょう。

Comments

[ATENAI]

早速ご回答ありがとうございます！
引数指定の仕方も理解していませんでした。
大変助かりました！