copy rows for a speadsheet that matched a word in a partuliar coloumn

[sandy armstrong]

I want to copy rows for a speadsheet that matched a word in a partuliar coloumn

He is my take on this.... It works get for me

Sub Feed_set_up()
  
Dim intLastRow As Long
intLastRow = ActiveSheet.UsedRange.Rows.Count
  
'Let's start at row 2. Row 1 has headers
x = 4
  
'Start the loop
Do While x <= intLastRow
'Look for data with 'Feed set up'
    If Cells(x, 15) = "Req. Feed Set Up" Then
    'copy the row if it contains '
    Worksheets("Sheet1").Rows(x).Copy
    'Go to sheet2. Activate it. We want the data here
    Worksheets("Sheet2").Activate
    'Find the first empty row in sheet2
    erow = Sheet2.Cells(Rows.Count, 15).End(xlUp).Offset(1, 0).Row
    'Paste the data here
    ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(erow)
    End If
    'go to sheet1 again and actvate it
    Worksheets("Sheet1").Activate
    'Loop through the other rows with data
    x = x + 1

Loop
End Sub

My spelling is soo bad im sorry...