Hi,
You can use this...

Sub Macro()
'Sheet3 .....all data..
'Sheet2......contains filtered data
Dim i, j, n As Integer
j = 1
Sheet3.Activate
For i = 1 To Sheet3.UsedRange.Rows.Count
If (Cells(i, 8) = "Complete") Then
For n = 1 To Sheet3.UsedRange.Columns.Count
Sheet2.Cells(j, n) = Sheet3.Cells(i, n)
Next n
j = j + 1
End If
Next i
End Sub


zak wrote:
Yes a drop down list with two options; Complete or Pending..as in the one you
can create via Data - Data Validation - Allow: List

Drop down?

[quoted text clipped - 12 lines]

Thank you