Private Sub Worksheet_Change(ByVal Target As Range)
    Dim icolor As Integer
    Dim cell As Range

    If Intersect(Target, Range("C3:T65")) Is Nothing Then Exit Sub

    For Each cell In Target
        icolor = 0
        Select Case cell
            Case "": icolor = 2
            Case Is <= Date + 30: icolor = 3
            Case Is <= Date + 60: icolor = 6
        End Select
        If icolor <> 0 Then cell.Interior.ColorIndex = icolor
    Next cell
End Sub
Private Sub CommandButton1_Click()
CommandButton1.Caption = "Sort"
Rows("3:65").Select
    Selection.EntireRow.Hidden = True
For Each cell In Range("C3:T65")
If cell.Value <= Date + 60 And cell.Value > 0 Then
cell.EntireRow.Hidden = False
End If
Next
End Sub

Private Sub CommandButton2_Click()
CommandButton2.Caption = "Show All Rows"
Rows("3:65").Select
    Selection.EntireRow.Hidden = False
End Sub