Автоматическая сортировка строк в Excel

Есть таблица:

Необходимо настроить автоматическую сортировку по столбцу B, а именно как вы понимаете "B2". И вот один из вариантов, как я пытаюсь это реализовать способами VBA:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B3:B4")) Is Nothing Then Exit Sub
    [B2].CurrentRegion.Sort [B2], xlAscending, Key2:=[C2], Order2:=xlAscending, Header:=xlYes
End Sub

И посмотрите, что он мне делает при вводе в ячейку B4 -> 2:

Перепробовал различные варианты, но у меня никак не выходит. Что делать?