I'm more newbie than expert - but this *might* work:
---------------------------------------------------------------
dim Drow
dim Frow
For Drow = 1 To 608
For Frow = 1 to 3000
IF cells(Drow, 4).value = cells(Frow, 6).value Then
'record the dupe somewhere - in this case the next cell over from
the Drow
cells(Drow, 7).value = "True"
Next Frow
Next Drow
-----------------------------------------------------------------
This will let you know which values from Column D appear in F, but
will overwrite multiple occurances, so you'll need to wtreak it if
you need that info.