Use VBA codes to Fnd the closst point and record the row

[kyod]

i have 10 points inserted in colume A, row 2-11(exclude row 1 due to title)
and 10 points(ie.random order 1-10) inserted in colume B, row 2-11
I have a point with value 5.8 in cell D4
and a point with value5.8 in cell D5
i wanna find the point in colume A which is closest to value in D4
and find the point in colume B which is cloest to value in D5

The answer should be the value 6,
but what i want to find is what row is the answer in, and show in the cell D6
so what should appear in D6 is 7, because the value 6 is in the 7th row.

can someone point me a direction of how to do this?
btw, i understand simple VBA code, im using direct cell reference here just to keep it simple.
To whoever cares about my question and spend time on it~
Thanks you! i am really grateful~~