How can this be looped??

[HockeyDiablo]

<tbody>
[TD="class: votecell"]

0down votefavorite
​

[/TD]
[TD="class: postcell"]Having a heck of a time looping this; D2 is where my list starts. I would like to have it ran for d3, d4, d5, d6.... until a blank space.
This program searches for the name in Column D and if it finds it, it places it in Column E so that would need to also increase with column D; e2,e3,e4,e5,e6...

Sub james()

Dim celltxt As String

celltxt = ActiveSheet.Range("D2").Value

DELETE_EJ

If InStr(1, celltxt, "Christy", vbTextCompare) Then Range("E2").Value = "Christy"
ElseIf InStr(1, celltxt, "Kari", vbTextCompare) Then Range("E2").Value = "Kari"
ElseIf InStr(1, celltxt, "Sue", vbTextCompare) Then Range("E2").Value = "Sue"
ElseIf InStr(1, celltxt, "Clayton", vbTextCompare) Then Range("E2").Value = "Clayton"

[/TD]

</tbody>

 

[oldbrewer]

for j=2 to 100
if cells(j,4)...............then cells(j,5) = ..........
next j

you can have as many if cells(j,4)= as you have names to check