try to Copy entire Row if active cell equals variable

Not sure what else to do....Create a new sample with a few of your current entries and test the code again....Also upload so that we can test. See if there is a difference.
Edit:

Herewith code that solves this Threads issue.

Option Explicit
Private Sub CommandButton1_Click()
Dim payrolldate As String
Dim nWb As Workbook, wb As Workbook
Dim lRow As Long, nRow As Long
Dim i As Double
Dim copyrange As Range
Dim ws As Worksheet, ns As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = ActiveWorkbook
Set ws = wb.Sheets("Labor_Transfer_Table")
Set nWb = Workbooks.Add
Set ns = nWb.Sheets("Sheet1")
lRow = ws.Cells(Rows.Count, "F").End(xlUp).Row
ErrorHandler:
payrolldate = InputBox("Please enter the Payroll Starting Date", Default:="YYYYMMDD")
ws.Activate
With ws
For i = 2 To lRow
    If Cells(i, 6) = payrolldate Then
        Do While Cells(i, 6).Value = payrolldate
            nRow = ns.Range("A" & Rows.Count).End(xlUp).Row + 1
            Cells(i, 6).EntireRow.Copy Destination:=ns.Range("A" & nRow)
            ws.Activate
            i = i + 1
        Loop
        ns.Activate
            With ns
                .SaveAs Filename:="C:\Users\matt_f\Desktop\PaycorOnsite\Time_Clock_Import\Pre-conversion\Payroll.csv", FileFormat:=xlCSV
                ActiveWorkbook.Close
                ActiveWorkbook.Saved = True
            End With
            MsgBox "File has been created and saved"
            GoTo EndMe
        ElseIf i = lRow Then
            MsgBox "No Payroll records with that Starting Date Exists"
            GoTo ErrorHandler
    End If
Next i
End With
EndMe:
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Quit
End Sub