Find a value, copy the row, move to next row.

Lately, I am learning on overcoming my phobia with filter and a have a loop fatigue

Sub Converted()
    Dim LR&
    Application.ScreenUpdating = False
    With Sheets("Main")
        LR = .Range("J" & Rows.Count).End(xlUp).Row
        .Range("A1:K" & LR).AutoFilter 10, "Startup"
        .Range("A1:K" & LR).Copy
        Sheets("Startup").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues
        Application.CutCopyMode = True
        .AutoFilterMode = False
    End With
    Application.ScreenUpdating = True
End Sub