macro to copy rows based on criteria

Hi,
I have this sheet,for which I want to create a macro,which will filter on column B and copy all rows having criteria of "OPEX" and paste it to another sheet starting from header row, and the then delete all rows having "OPEX" from master sheet.

it doesnt seem to do anything?
Im such a newbie at this tho im probably not doing it right.


I have come up with the following code:

Sub Copyx()
Dim RngColF As Range
Dim i As Range
Dim Dest As Range
Sheets("Central").Select
Set RngColF = Range("H1", Range("H" & Rows.Count).End(xlUp))
With Sheets("BlessedKateri")
Set Dest = .Range("A2")
End With
For Each i In RngColF
If i.Value = "X" Then
i.EntireRow.Copy Dest
Set Dest = Dest.Offset(1)
End If
Next i

This WORKS! but only to copy the information...

Do you think you could modify it so that if I delete a row of of the "Central" sheet (which is my master), it will delete it off all the other sheets it is contained it?

Even that OPEX thing that you did that would clear and replace all the data would work. I think?

Never Mind!


I visted your site and have figured it out, which was sooooo helpful!

THANKYOU THANKYOU THANKYOU