2 sheets with different finalrow variables

[ShaunD30]

Ok...Trying to get a "do until" loop.

I have

Finalrow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
Finalrow2 = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row

I need my "Do until" loop to run until the activecell in sheet1 =finalrow

I tried "Do until activecell.row=Finalrow", however that didn't work because it ended my macro too soon.

I tried "Do until sheets("Sheet1").Activecell.row=Finalrow
But it won't accept that.

any idea on how I need to word this so it works?

Shaun

 

[VoG]

Perhaps

Sub GetData()
Dim FinalRow As Long, Finalrow2 As Long, FinalRow3  As Long, i As Long, j As Long
Dim Curzip As Variant
With Sheets("Sheet1")
    FinalRow = .Cells(Rows.Count, 1).End(xlUp).Row
    Finalrow2 = Sheets("Sheet4").Cells(Rows.Count, 1).End(xlUp).Row
    For j = 2 To FinalRow
        Curzip = .Range("B" & j).Value
        For i = 2 To Finalrow2
            If Sheets("Sheet4").Cells(i, 7).Value = Curzip Then
                FinalRow3 = Sheets("Sheet3").Range("A1" & Rows.Count).End(xlUp).Row
                Sheets("Sheet4").Cells(i, 2).Copy Destination:=Sheets("Sheet3").Range("A" & FinalRow3 +1)
            End If
        Next i
    Next j
End With
End Sub