Pull The Entire Row If It Finds The Specific Word

The following sub will look in the file ("FY09 SOF"), in column "A", search for the strings that begin with "2109", "3009", or ends in "-1", and copy the entire row. It will then paste these in the file ("FY09 PR Log Blank").

I also need it to look in column "C" in the ("FY09 SOF") file and pull the entire row if it finds the word "Payroll".

For some reason it will pull everything needed except the "Payroll" rows. What am I doing wrong?

Sub get_data()
Dim wb As Workbook, wbDest As Workbook
Dim ws As Worksheet, wsDest As Worksheet
Dim lngCalc As Long
Dim FoundCells As Range
Dim FoundCell As Range

Set wb = Workbooks("FY09 SOF")
Set wbDest = Workbooks("FY09 PR Log Blank")
Set wsDest = wbDest.Worksheets("Paste all here, then sort")

With Application
.ScreenUpdating = False..........................