VBA Help required

[Kentucky]

I am looking to automate my excel a liitle more
I have a workbook with 2 sheets Sheet1("Results") and Sheet2("Selections")

When I Select a value in sheet1 it populates cell R1 with that selection and it populates cell F1 with another value

What I would like to do is

When R1 changes in sheet1 I would like it to Lookup the value in Sheet2 it needs to look column C if it finds the value AND the Cell next to it is empty (which would be column D) then I would want the Value of F1 Copying to that Cell

Example

Sheet 1 R1=APPLE
Sheet 1 F1= 2.2

Sheet 2

- Column C Column D

Row 1 PEAR- 2.1

Row 2 PEAR- 2

Row 3 APPLE- 2.2

Row 4 GRAPE- 3

Row 5 PEAR- 2.05

Row 6 APPLE- This cell is blank

I would want D6 to be populated with 2.2

Thanks in Advance
Ken

[Kentucky]

Hi Guys I seem to be getting somewhere with this problem
Using the code below It is finding the first instance of my search what I want is the last instance

Dim lookFor As Range
Dim rng As Range
Dim col As Integer
Dim found As Variant
Dim Row As Integer
Set lookFor = Sheets("Results").Range("R1")
Set rng = Sheets("Selections").Columns("C:C")
col = rng.Row


On Error Resume Next
Row = Application.WorksheetFunction.Match(lookFor, rng, 0)
found = Application.VLookup(lookFor.Value, rng, col, 0)
If IsError(found) Then
MsgBox lookFor & " not found"
Else: MsgBox "The look-up value of " & lookFor & " is " & found & " in row " & Row
End If
On Error GoTo 0
End If

Any advice would be great