thanks!! that did the trick..

"Jef Gorbach" wrote in message
...
The below suggestion uses autofilter to only show those rows where
column(M) is nonblank, then copy all
of the visible rows to your destination. You didn't specify,so I
showed how to page it on sheet2 starting at cell A1.

sub filtercopy()
Cells.AutoFilter Field:=13, Criteria1:="<"
Cells.SpecialCells(xlCellTypeVisible).Copy _
Destination:=Worksheets("Sheet2").Range("A1")
Application.CutCopyMode = False
Selection.AutoFilter
end sub


Good luck, have fun, and let me know if/how I can be of further
assistance.