Hi Paul,

Adjust the following your specific needs :

Sub Macro1()
Dim Paid As String
Application.Goto ("R1C1")
ActiveCell.Range("C1").Select ' adjust to your column
Do
Paid = ActiveCell.Value
Select Case Paid
Case Is = No
ActiveCell.EntireRow.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Application.CutCopyMode = False
Case Else
ActiveCell.Offset(1, 0).Select
End Select
Loop Until ActiveCell.Value = ""
Application.Goto ("R1C1")
End Sub

HTH
Cheers
Carim