Sub versive()
Dim myRange As Range
Set myRange = Range("D2:D25")
For Each "c" c.Select
If c.Value = 1 Then
Selection.EntireRow.Copy
Worksheets("Sheet2").Rows("1:1").Insert Shift:=xlDown
End If
Next
End Sub


The above formula was given to me by a "Mike" but I am uncertain how
to use it.

what I am trying to do is make excel pickout data that equals a
certain text value and move it automatically to another worksheet in a
workbook.

If anyone can help me out here I would appreicate it. I am NOT
allowed to use ACCESS I must use Excel.