VBA Code: Copying rows from multiple sheets

Hello,
I'm trying to use VBA to copy rows that satisfy a certain 'If-Then' statement from multiple sheets in Excel onto one sheet. All of the sheets have the same columns and each set is one month in a year. I've gotten the code to work for one sheet but I need the next month's rows to be copied on to the final sheet relative to where the previous month's ended. The first month I've copied is 'April' and I am copying all of them onto a sheet titled 'Change Summary 1'. Here is my code thus far:

Option Explicit
Sub Module1()
Dim i
Dim e
Dim k
Dim l
Dim m
Dim n
Dim o
Dim p
Dim s
Dim t
Dim u
Dim v
Dim w
Set i = Sheets("April")
Set k = Sheets("May")
Set l = Sheets("June")
Set m = Sheets("July")
Set n = Sheets("Aug")
Set o = Sheets("Sep")
Set p = Sheets("Oct")
Set s = Sheets("Nov")
Set t = Sheets("Dec")
Set u = Sheets("Jan")
Set v = Sheets("Feb")
Set w = Sheets("Mar")
Set e = Sheets("Change Summary 1")
Dim d
Dim j
Dim a
d = 5
j = 5
a=5+d
Do Until IsEmpty(i.Range("I" & j))

If i.Range("I" & j) = "Yes" Then
d = d + 1
e.Rows(d).Value = i.Rows(j).Value
If k.Range("I" & j) = "Yes" Then
a = a + 1
e.Rows(a).Value = k.Rows(j).Value
End If
End If
j = j + 1
Loop


End Sub

My biggest problem is making the next month show up relative to the month before it on the 'Change Summary 1' sheet. Any suggestions are appreciated.