Copy matches to next empty row is not working

[DThib]

I have a function that Fluff was able to help me troubleshoot.
My quandary is now, when I fire the code to pull a copy of the Query from Access, it does pull another copy into the designated worksheet as written. That works has intended.
The problem stars here:
The next macro when chosen is supposed to look at the entire worksheet and copy all data that matches the criteria into the worksheet assigned. It does not work, but then it will sometimes copy a few lines, but I know there are more matches in the Access copy worksheet.
I want it to review the entire worksheet and pull all matches regardless of their appearing in assigned worksheet since this is a building spreadsheet.
What is going on?

Here is a copy of the macro:

Sub Workie()

  Dim LastRow, LR As Long
  Dim i As Long
  Dim j As Long
    
    LastRow = Cells(Rows.Count, "B").End(xlUp).Row
    j = LastRow + 1
    For i = 1 To LastRow
    
        If Sheets("IQP").Cells(i, 29) <> "" And Sheets("IQP").Cells(i, 11) = _
        "Assigned" And Sheets("IQP").Cells(i, 16) = "" Then
             Sheets("Workable").Cells(j, 2) = Sheets("IQP").Cells(i, 2).Value
             Sheets("Workable").Cells(j, 3) = Sheets("IQP").Cells(i, 10).Value 
             Sheets("Workable").Cells(j, 4) = Sheets("IQP").Cells(i, 9).Value 
             Sheets("Workable").Cells(j, 5) = Sheets("IQP").Cells(i, 29).Value 
             Sheets("Workable").Cells(j, 6) = Sheets("IQP").Cells(i, 5).Value 
             Sheets("Workable").Cells(j, 7) = Sheets("IQP").Cells(i, 6).Value 
             Sheets("Workable").Cells(j, 8) = Sheets("IQP").Cells(i, 30).Value 
             Sheets("Workable").Cells(j, 9) = Sheets("IQP").Cells(i, 8).Value 
             j = j + 1
        End If
    Next i
    
End Sub