Code:

```
Sub DeleteTwoDataSets()
Last = Cells(Rows.Count, "P").End(xlUp).Row
For i = Last To 1 Step -1
If (Cells(i, "P").Value) = "Paid" Then
Cells(i, "P").EntireRow.Delete
End If
Next i
Last = Cells(Rows.Count, "X").End(xlUp).Row
For i = Last To 1 Step -1
If (Cells(i, "X").Value) = "Final" Then
Cells(i, "X").EntireRow.Delete
End If
Next i
End Sub
```