Sub vbr()
Dim x
Dim i&, v%, r&
Dim z(1 To 100000, 1 To 4) ' итоговый массив (от 1 до 100000 строки, и с 1 по 4 столбца)
Dim dt
On Error Resume Next
x = Sheets(1).Range("A2:D" & Sheets(1).[a65536].End(xlUp).Row).Value 'массив (от 2й до последней непустой строки, и с 1 по 4 столбца)
dt = Sheets(2).[g1] 'ячейка с датой
r = 0 ' счетчик строк итогового массива
For i = 1 To UBound(x) 'от первого элемента массива Х до последнего
     If x(i, 4) = dt Then 'если дата в строке совпадает с датой в ячейке
         r = r + 1 '
         For v = 1 To 4 ' то записываем в итоговый массив данные строки
             z(r, v) = x(i, v) '
         Next
     End If
Next
Sheets(2).[a2:d65536].ClearContents 'очищаем строки
Sheets(2).[a2].Resize(r, 4) = z 'выводим полученный массив на лист
End Sub