Selection of rows based on conditions

Hello, I need some Excel 2003 macro experts' help: I have modified a code posted in this site to automate a process I have been doing for a while. It works fine, except that in the second and third sheet it creates blank rows. The code is copied below. The 'Test1' sheet is the master sheet. Based on two conditions (columns G= Kent, Hampshire, West Sussex; and H, which is a date field (week starting monday)), the macro copies the records meeting these conditions in to the respective sheets. The issue I have is the blank rows. Could someone help me with modification of the code to remove the blank spaces please? many thanks in advance.




Sub Macro1()
'
' Macro1 Macro
' Macro recorded 07/12/2010 by Nicole
Set i = Sheets("Test1")
Set e = Sheets("Kent")
Set f = Sheets("Hants")
Set g = Sheets("W Sussex")

Dim d
Dim j
d = 1
j = 2

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

If i.Range("G" & j) = "Kent" And i.Range("H" & j) = "06/12/2010" Then
d = d + 1
e.Rows(d).Value = i.Rows(j).Value
ElseIf i.Range("G" & j) = "Hampshire" And i.Range("H" & j) = "06/12/2010" Then
d = d + 1
f.Rows(d).Value = i.Rows(j).Value
ElseIf i.Range("G" & j) = "West Sussex" And i.Range("H" & j) = "06/12/2010" Then
d = d + 1
g.Rows(d).Value = i.Rows(j).Value

End If
j = j + 1
Loop

'
End Sub