Copy row from one sheet to other based on 2 conditions

Hello,
Any assistance would be very much appreciated I'm just getting into macros and coding.

I'm trying to copy a list from sheet 4 and input the information based on multiple different criterias on sheet 1 I'm using this coding so far which works great for that one but I have seven more sections on sheet 1 starting on I14 and I25 how do I move the pasted information to that location?
Set I = Sheets("Employee Inventory")
Set e = Sheets("EEs")
Dim d
Dim j
d = 12
j = 2
Do Until IsEmpty(i.Range("Q" & j))
If i.Range("Q" & j) = "TERM" and i.Range("S" & j) ="X" Then
d = d + 1
e.Rows(d).Value = i.Rows(j).Value
End If
j = j + 1
Loop

Any suggestions or a whole different coding would be appreciated
Thanks!