Option Explicit
Dim ShList1 As Worksheet
Dim List1Obj As ListObject
Dim List1ListRow As ListRow
Dim ShList2 As Worksheet
Dim List1Obj2 As ListObject
Dim List1ListRow2 As ListRow

Sub Найти_строку_по_дате()

Dim Cell As Range

Set ShList1 = ThisWorkbook.Worksheets("Лист1")
Set List1Obj = ShList1.ListObjects("Таблица1")

Set ShList2 = ThisWorkbook.Worksheets("Лист2")
Set List1Obj2 = ShList2.ListObjects("Таблица2")

Set Cell = List1Obj2.ListColumns.Item(4).Range.Find(ThisWorkbook.Worksheets("Лист1").Cells(1, 5), LookAt:=xlWhole)
     If Not Cell Is Nothing Then
      List1Obj.Range.Clear
      For Each Cell In List1Obj2.ListRows
    Set List1ListRow = List1Obj.ListRows.Add
    List1ListRow.Range(1) = Cell.Cells(1, -3)
    List1ListRow.Range(2) = Cell.Cells(1, -2)
    List1ListRow.Range(3) = Cell.Cells(1, -1)
    Next Cell
    End If
    End Sub