Copy and paste rows based on criteria

Hello, i have used the below macro...it is pasting the rows that match criteria but at the end getting stuck.....when i debug it is highlighting End If... not sure whats the issue... Please helP

Set i = Sheets("Employee Inventory")
Set e = Sheets("EEs")
Dim d
Dim j
d = 1
j = 2

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

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

End If
j = j + 1
Loop