Search for cell equal to cell in another worksheet

[hnowack]

Hi all,

I'm trying to search for a cell in the Cardio Database worksheet that is equal to a specific cell in the Design Cardio worksheet (B3). Once it finds a match I want it to copy the range of cells below that "found" cell in the Cardio Database, and paste it in the Print 6Day worksheet (A4:I19). The search needs to look across row 1, then jump down to row 21, 41, 61, etc. if it does not find a matching cell.

This is what I have so far:

Sub SearchCardio()

Application.ScreenUpdating = False
Sheets("Cardio Database").Select
Range("A1").Select

Do Until ActiveCell.Value = ""
If ActiveCell.Value = Sheets("Design Cardio").B3 Then
    ActiveCell.Select
    Exit Do
ElseIf ActiveCell.Value <> Sheets("Design Cardio").B3 Then
    ActiveCell.Offset(0, 1).Select
End If
Loop

End Sub

Thanks for any help! I've attached a short version of the workbook to aid anyone that needs further explanation.