Macro To Copy Row Based On Boolean?

Originally Posted by DGagnon

Try this out

Sub test1()
Dim r As Range, filt As Range
Sheets(2).Range("B5:I17").Cells.Clear

With Sheets(1)
    Set r = .Range("A4").CurrentRegion
    r.AutoFilter field:=1, Criteria1:="TRUE"
    Set filt = r.Offset(1, 0).Resize(r.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    filt.Areas(1).Columns("C:J").Copy
    Sheets(2).Range("B5:G17").PasteSpecial

    .AutoFilterMode = False
End With
Application.CutCopyMode = False
End Sub

It works except it stops once it finds the first FALSE