Move Row based off criteria in Excel

[gmatriix]

Hello All,

What I am trying to do is if on the (Open Project Issues) tab column F says "Closed" it will move that row to a tab called (Closed Project Issues) tab. I was trying something like this:

Sub testmove() 
Dim c As Long 
For c = ActiveSheet.UsedRange.Rows.Count To 2 Step -5 
    If Cells(c, 6) = "Closed" 
Rows(c).Cut 
End If 
Next c 

End With 
'find last row 
LastRow = Cells.Find("*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row 

???????? ok I'm lost..

I wanted it to find the last row on the closed tab and insert copied cells

Please help..

Any Ideas???

Thanks

[RobDog888]

Thread Moved

You should exit the loop after its found as you dont want to be doing multiple cuts