In these declarations:
Set top = Columns("D:D").Find(What:=[E2], After:=Cells(4, 4), LookIn:=xlValues)
Set btm = Columns("d:d").Find(What:=[F2], After:=Cells(4, 4), LookIn:=xlValues)
How do I modify the second one to say in effect:
Set top = Columns("D:D").Find(What:= [Any value > [F2] AND < [G2] After:=Cells(4, 4), LookIn:=xlValues)
Set btm = Columns("d:d").Find(What:=[F2], After:=Cells(4, 4), LookIn:=xlValues)