Compare cells from two different worksheets and copy a corresponding cell

Hi,
title may have confused you, but here is the pseudocode of what I would like to do

For each cell in column C and H in "DD BOM" worksheet
	Look for a similar match in column A "BOM" worksheet. 
	If match, 
		copy corresponding cell value in column C of "BOM" worksheet
		paste into corresponding cells in column D or H

I am able to cycle through the code using :

    For Each cell In Sheets("DD BOM").Range("E:E").SpecialCells(xlCellTypeConstants)

Try this..

Sub test()
    Range("C:C").SpecialCells(xlCellTypeConstants).Offset(, 1).FormulaR1C1 = _
        "=IF(LEN(VLOOKUP(RC[-1],BOM!C1:C2,2,0))>0,VLOOKUP(RC[-1],BOM!C1:C2,2,0),"""")"
End Sub