Docketbook Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = Range("A2:A2")
    Set OtherKeyCells = Range("C2:C2")
    Set DateCells = Range("A5:B5")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then
        Set wksControl = Worksheets("Org Groups")
        Set objList = wksControl.ListObjects("Organisation_Groups")
        objList.Refresh
    End If
    If Not Application.Intersect(OtherKeyCells, Range(Target.Address)) _
           Is Nothing Then
        Set wksControl = Worksheets("Dockets")
        Set objList = wksControl.ListObjects("DocketLineItems")
        objList.Refresh
    End If
    If Not Application.Intersect(DateCells, Range(Target.Address)) _
           Is Nothing Then
        Set wksControl = Worksheets("Dockets")
        Set objList = wksControl.ListObjects("DocketLineItems")
        objList.Refresh
    End If
End Sub