Macro To Copy Row Based On Boolean?

It was still in Advanced Filter Mode. I didn't want to override sheet2 that's all.

Sub CopyPaste()
Dim ws As Worksheet
Dim LR As Long

With Worksheets("Sheet1")
If .AutoFilterMode = True Then
    .Rows(3).AutoFilter Field:=1
Else
    .Rows(3).AutoFilter
End If
    LR = .Range("A:A").Find(What:="FALSE", After:=Range("A3"), LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Row
    .Cells(3, 1).CurrentRegion.AutoFilter Field:=1, Criteria1:="TRUE"
    Set ws = Worksheets.Add
    .Range("A3:J" & LR - 1).Copy ws.Cells(3, 1)
        With ws
            .Columns("B").Delete
            .Range("A4:A" & LR).ClearContents
        End With
End With

With Worksheets("Sheet1")
    If .AutoFilterMode = True Then
        .AutoFilterMode = False
    End If
End With

End Sub