How do I step down a row, every turn in a loop?

[Rob*]

Hi,

I got this macro where I find a cell with a specific value:

Sub Find_Week()
Application.ScreenUpdating = False

    Sheets("Namn").Select
    Range("B03").Select
    Do Until ActiveCell = vbNullString

 
                    If ActiveCell.Value = Sheets(2).Cells(3, 2) Then
                ActiveCell.Offset(2, -1).Select

 'Some more code here about what to copy and where to paste it :-)

    ActiveCell.Offset(98, 0).Select
               Else
        ActiveCell.Offset(100, 0).Select
    End If
    Loop
Application.ScreenUpdating = True
End Sub

But my problem is. That next time I want to sheck that equal "Sheets(2).Cells(3, 2)" to look in the next row below every time the loop starts over.

I think I need a x value. like:

 
x=3
Sheets(2).Cells(x+1, 2)

But how do I write it?

Or is there any better way?