I have a workbook with an approval page. The manager ticks the check boxes and then presses a button labeled "approve". What I need then is to copy all of the approved lines...the check box puts a TRUE/FALSE in column Z.

The following code copies only the first line that returns TRUE in column Z. But I'd like to copy all lines with TRUE, and I can't figure out how to do it. Any ideas?



Sub CopyRowWith()
    
Last = Cells(Rows.Count, 7).End(xlUp).Row
    
    For i = Last To 1 Step -1
        If (Cells(i, "Z").Value) = True Then
            Cells(i, "A").EntireRow.Copy
        End If
    Next i


End Sub

Thanks!!