Copy Cells In One Column Based On Criteria In Another Column

I have an personnel file with employee info, and I want to create a macro that will look in the "Master" worksheet at the Department column ("I") for anyone in Benefits, and then copy their name from the Name column ("D") into the "Benefits" worksheet. The names should begin pasting in cell "D3" but will recognize if a cell already has a name in it and then paste in the cell below that.

Here is what I have:

Option Explicit

Public Sub RatingbyDept()
Dim Dept As Range

With Sheets("Master")
For Each Dept In .Range("I2:I1000")
With Dept

I keep getting error 92 - "For loop not initialized".