Do Until Loop Not Working

Hi All,

I have a macro that pulls rows from a tab called "Report" to the tab "New Employees" based on the value "NEW" in Column R. It also pulls rows to the tab "Existing Employees" based on the value "Existing" in Column S. Both of these codes work fine when I split them up into two macros, but when I combine them into the code below, only the "New Employees" tab gets populated; the "Existing Employees" tab does not. Can anyone help me figure out why I'm running into this problem? Thanks in advance for your help!

Sub NewEmployees()

Set i = Sheets("Report")
Set e = Sheets("New Employees")
Set f = Sheets("Existing Employees")
Dim d
Dim j
d = 1
j = 2

Do Until IsEmpty(i.Range("R" & j))

If i.Range("R" & j) = "NEW" Then
d = d + 1
e.Rows(d).Value = i.Rows(j).Value

End If
j = j + 1
Loop

Do Until IsEmpty(i.Range("S" & j))

If i.Range("S" & j) = "EXISTING" Then
d = d + 1
e.Rows(d).Value = i.Rows(j).Value

End If
j = j + 1
Loop