Copying and pasting worksheets based on one condition

[Lifeseeker]

Hi,

I'm simplying trying to copy everything in worksheet "raw" into worksheet "final set" based on one condition, which is that I want to copy all the rows where the status equals "keep". I want to skip the ones with "delete" status. I have attached the workbook.

I also have some codes written up, but I am getting an "400" error.

Sub extractKeeps()

Dim r As Integer
Dim c As Integer
Dim lastRow As Long

Application.ScreenUpdating = False
lastRow = Worksheets("raw").UsedRange.Rows.Count

For r = 1 To lastRow
    For c = 1 To 9
    
    If Cells(r, 9).Value = "keep" Then
    Worksheets("raw").Cells(r, c).EntireRow.Copy = Worksheets("Final Set").Paste
    End If
    
    Next c
    Next r

Application.ScreenUpdating = True
End Sub

Any help is appreciated.