обновить таблицу на основе значения раскрывающегося списка

Question

В настоящее время я фильтрую таблицу с раскрывающимся списком. Я хочу обновить таблицу, а не фильтровать. Как я могу изменить свой код, если это возможно, для достижения моей конечной цели.

Private Sub Worksheet_Change(ByVal target As Range)
   ' Cell with dropdown
   Const DropDown = "C4"
   ' Sheet with table
   Const TableSheet = "Data"
   ' Top left cell of range with table
   Const TableRange = "Data"
   If Not Intersect(Range(DropDown), target) Is Nothing Then
       Application.EnableEvents = False
       If Range(DropDown).Value = "" Then
           Worksheets(TableSheet).ShowAllData
       Else
           Worksheets(TableSheet).Range(TableRange).AutoFilter _
               Field:=1, Criteria1:=Range(DropDown).Value
       End If
       Application.EnableEvents = True
   End If
End Sub