I hope you know how to handle macros? If you don't please comment I will guide you.
Sub first_date()
Dim MyRange As Range
Dim MyRange1 As Range
Worksheets("Summary").Select
Set MyRange = Worksheets("Summary").Range([a2], [a2].End(xlDown)).Rows.SpecialCells(xlCellTypeVisible)
Worksheets("Feb").Select
Set MyRange1 = Worksheets("Feb").Range([a2], [a2].End(xlDown)).Rows.SpecialCells(xlCellTypeVisible)
Worksheets("Summary").Select
For Each MyCell In MyRange.Cells
With MyRange1
Set rng1 = .Cells.Find(MyCell.Value)
If Not rng1 Is Nothing Then
Do
If IsNumeric(rng1.Offset(0, 2).Value) Then
MyCell.Offset(0, 1).Value = rng1.Offset(0, 1)
Exit Do:
End If
Set rng1 = .Cells.FindNext(rng1)
Loop While rng1.Address <> strAddress
End If
End With
Next
End Sub