Sub iBIK()
Dim iDate As Date
Dim FoundCell As Range
Dim FAdr As String
   iDate = Split(Range("C2"), ":")(1)
    Set FoundCell = Columns("E:F").Find("БИК", , xlValues, xlPart)
     If Not FoundCell Is Nothing Then
      FAdr = FoundCell.Address
      Do
       Cells(FoundCell.Row, "B") = iDate
       Set FoundCell = Columns("E:F").FindNext(FoundCell)
      Loop While FoundCell.Address <> FAdr
     End If
End Sub