Tom,
I found this bit of code, but I'm getting an Error 91.
I tried Dim rng As Range, but still nogo.
Any suggestion?

"Tom Ogilvy" wrote:

Set rng = ActiveSheet.Autofilter.Range
if rng.Columns(1).SpecialCells(xlVisible).Count 1 then
rng.offset(1,0).Resize(rng.rows.count-1).Copy _
Destination:= Worksheets(2).Range("A1")
Else
msgbox "No visible data"
End If

--
Regards,
Tom Ogilvy

"JH" wrote in message
...
Hello,

I'm using autofilter in my sheet. The sheet is filtred by many criteria
and
has a header. Criteria are changed in loop.
After filtering I'd like to copy filtred data copy to another sheet(the
same
sheet for all entries) but without the header.
I don't know how to recognize where data start. Some rows are alaways
hiden
and "first" row under the header may sometimes be 16th row sometimes 5th
row
etc.
And I don't want the header to copy together with filtred data
thanks in advance

JH