Copy Multiple Rows Based on Cell Value

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!!

Bishonen, that gives me a run-time error 5. Invalid procedure call or argument.

It doesn't like the line Set copyRange = Union(copyRange, Cells(i, "A").EntireRow)

It works. Thanks so much!!

One added question

How would I insert this condition into the above code...if all cells in column Z are FALSE, then exit sub.