Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
Dim lRowG As Long, lRowFA As Long, fund As Range
lRowG = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
If Intersect(Target, Range("I7:W" & lRowG)) Is Nothing Then Exit Sub
lRowFA = Sheets("Funds Available").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Set fund = Sheets("Funds Available").Range("A2:A" & lRowFA, "I2:I" & lRowFA).Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
fund.Offset(, 5).Copy
If Not fund Is Nothing Then
fund.Offset(, 6).Value = fund.Offset(, 6).Value - 1
End If
Application.ScreenUpdating = False
End Sub