VBA - オートフィルタの並べ替えが不安定

Question

VBAで、オートフィルタを操作するため、以下のシンプルなコードを作成しました。
（１）AB列から"あ","い"のみ選択
（２）AR列を昇順に並べ替える

（１）は問題なく動きますが、（２）の動作が不安定です。
数か月前までは正常動作しておりましたが、最近は（２）が全く動作せず、特にエラーも吐きません。
考えられる原因は何でしょうか。
調べましたが、いまいち原因が分からず、皆様のお知恵をお借りしたく。

---

環境

• Windows 10
• Office 365 64 bit

---

Sub test()
Set ws1 = ThisWorkbook.Worksheets("ws1")
ws1.AutoFilterMode = False

' （１）AB列から"あ","い"のみ選択する
With ws1.Range("A4:BB4")
    .AutoFilter Field:=28, Criteria1:=Array("あ", "い"), Operator:=xlFilterValues
End With

' （２）AR列を昇順に並べ替える
With ws1.Sort
    With .SortFields
        .Clear
        .Add Key:=ws1.Range("AR4"), SortOn:=xlSortOnValues, Order:=xlAscending
    End With
    .SetRange ws1.Range("A4:BB4")
    .Header = xlYes
    .Apply
End With

End Sub

Answer 1

ここでヘッダーだけ指定しているので、

.SetRange ws1.Range("A4:BB4")

すべて範囲指定してみてはいかがでしょう

.SetRange ws1.Range("A4").CurrentRegion