Function IsDigital(Cell As Range) As Boolean
 
    On Error GoTo ErrorHandler
 
    IsDigital = (Cell(1, 1).Interior.ColorIndex = 35)
 
    Exit Function
 
ErrorHandler:
    Debug.Print Cell.Address & ": " & Err.Description
 
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Set SortRange = Range(("A1"), Range("D5"))
 
    Application.Calculation = xlCalculationManual
 
    SortRange.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
 
    Application.Calculation = xlCalculationAutomatic
 
End Sub