Moving from For...Next loop to subroutine and back to loop

Question: I'm looking to divide a large number of records into separate worksheets based on a for...next loop that runs through the file records and searches for text strings in a field. based on that information, it copies the record into the appropriate worksheet. My code's below.

The problem: After running the subroutine, I don't know how to get VBA to head back into the original For...Next loop in the main routine. help? (Also, I'm sure the code below isn't elegant. If there's a better solution -- i'll wind up having to write a number of subs that mimic jdoe -- please feel free to suggest). Thanks.


Sub tstStreamDivn()

Dim loopcounter As Integer
Dim rowcount As Integer
Dim strSubject As String

Worksheets("Streams").Range("a1").Activate
rowcount = ActiveSheet.UsedRange.Rows.Count

For loopcounter = 1 To rowcount Step 1

Range("a1").Offset(loopcounter, 0).Activate
strSubject = ActiveCell.Value

If InStr(1, strSubject, "John Doe") > 0 Then
jdoe
End If

Next loopcounter

End Sub

Sub jdoe()

Dim intjdoecount As Integer

ActiveCell.EntireRow.Copy
intjdoecount = intjdoecount + 1
Sheets("jdoe").Activate
ActiveCell.Offset(intjdoecount, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub