try to Copy entire Row if active cell equals variable

Try this: Not happy with the loop. Perhaps someone can add code with a Do While syntax

Option Explicit
Private Sub CommandButton1_Click()
Dim payrolldate As Long
Dim nWb As Workbook, wb As Workbook
Dim lRow As Long, nRow As Long
Dim i As Integer
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
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
            nRow = ns.Range("A" & Rows.Count).End(xlUp).Row + 1
            Cells(i, 6).EntireRow.Copy Destination:=ns.Range("A" & nRow)
            ws.Activate
        Else
            MsgBox "Search Completed,No Payroll records with that Starting Date Exists"
            GoTo SaveMe
        End If
    Next i
End With
SaveMe:
ns.Activate
With ns
    .SaveAs Filename:="C:\Users\matt_f\Desktop\PaycorOnsite\Time_Clock_Import\Pre-conversion\Payroll.csv", FileFormat:=xlCSV
    ActiveWorkbook.Saved = True
End With
MsgBox "Has been created and saved"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.Quit
End Sub