Pasar datos con misma fecha de una hoja a otra

Lo que se presento hace lo que quieres exactamente aunque no estoy seguro que sea lo mejor, dependiendo de lo que necesites.
En la hoja 2 añades el siguiente código :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("A1")) Is Nothing) Then
Call BuscaDeFecha(Target.Value)
End If
End Sub 
Y en un modulo que insertes o que tengas añades el código de la función como sigue:
Sub BuscaDeFecha(f As String)
Dim i As Integer, j As Integer
Dim maxi As Integer
Worksheets("Hoja1").Activate
maxi = Range("A1", Range("A2").End(xlDown)).Rows.Count
j = 1
For i = 1 To maxi
If Worksheets("Hoja1").Range("A" & i).Value = f Then
Worksheets("Hoja2").Range("B" & j).Value = _
Worksheets("Hoja1").Range("B" & i).Value
j = j + 1
End If
Next i
End Sub
Ten en cuenta que hay varias maneras tanto de hacer el código como de buscar el resultado que buscas.