Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("G1:G2")) Is Nothing Then
    Application.EnableEvents = False
 Dim iDate As Range
   Set iDate = Columns(1).Find(Range("G1"), , xlValues, xlWhole)
   If Not iDate Is Nothing Then
     If Range("G2") = "USD" Then
       Range("G3") = iDate.Offset(, 1)
     Else
       Range("G3") = iDate.Offset(, 2)
     End If
   Else
     MsgBox "В таблице нет даты: " & Range("G1")
   End If
 End If
   Application.EnableEvents = True
End Sub