Moving Rows based on cell content

The code below will move rows where column E contains "43A" to sheet EE. I have a couple of questions.

1. How can I concatenate E and G to make their criteria together to move to EE?
2. If I have other combos to move to other sheets beside EE can I recopy the code below the loop line and modify criteria?

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Set i = ActiveSheet
Set e = Sheets("EE")
Dim d
Dim j
d = 1
j = 2

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

If i.Range("E" & j) = "43A" Then
d = d + 1
e.Rows(d).Value = i.Rows(j).Value

End If
j = j + 1
Loop

End Sub