cut and paste row

[kenpcli]

Is there a way to look down column C and remove the row and paste to the bottom if a certain name appears? ie if any cell in column C has "Totals for SELF PAY", it would cut the row and place it at the bottom and keep going down the work sheet?

 

[Fluff]

How about

Sub SelfPay()

   Dim Ar As Areas
   Dim Rng As Range
   
   With Columns(3)
      .Replace "Totals For SELF PAY", True, xlWhole, , False, , False, False
      Set Ar = .SpecialCells(xlConstants, xlLogical).Areas
      .Replace True, "Totals For SELF PAY", xlWhole, , False, , False, False
   End With
   For Each Rng In Ar
      Rng.EntireRow.Copy Range("[COLOR=#ff0000]B[/COLOR]" & Rows.Count).End(xlUp).Offset(1, -1)
      Rng.EntireRow.Delete
   Next Rng
End Sub

This uses col B to find the last used rows, change if needed

 

[kenpcli]

How about

Sub SelfPay()

   Dim Ar As Areas
   Dim Rng As Range
   
   With Columns(3)
      .Replace "Totals For SELF PAY", True, xlWhole, , False, , False, False
      Set Ar = .SpecialCells(xlConstants, xlLogical).Areas
      .Replace True, "Totals For SELF PAY", xlWhole, , False, , False, False
   End With
   For Each Rng In Ar
      Rng.EntireRow.Copy Range("[COLOR=#ff0000]B[/COLOR]" & Rows.Count).End(xlUp).Offset(1, -1)
      Rng.EntireRow.Delete
   Next Rng
End Sub

This uses col B to find the last used rows, change if needed

Thank you, worked like a charm!

 

[Fluff]

Glad to help & thanks for the feedback

PS
You do not need to quote the posts all the time, it messes up the thread.
As a rough rule of thumb
If you are replying to the previous post no quote is needed
If you are replying to an older post, only quote what is needed.

 

[kenpcli]

Thank you, will do