Looping Code

Hi All

I am using the following code in a project and would like some help to loop it until either TRUE or #N/A is found in the active cell.

 Sheets("Sheet1").Select
Range("a65536").End(xlUp).Offset(0, 17).Select
 If ActiveCell.Value = False Then
 Range("a33", Range("a33").End(xlToRight)).Select
 Selection.Copy
 Range("a65536").End(xlUp).Offset(1, 0).Select
 ActiveSheet.Paste
 Application.CutCopyMode = False
 Range("a65536").End(xlUp).Offset(0, 17).Select

Thanks for any assistance

Jeff