..SpecialCells(xlVisible).entirerow.Copy _


--
Don Guillett
SalesAid Software

wrote in message
ups.com...


Hi Don,

I modified the code... and it copies the FAVO cell from the data sheet
to Section 2 - how do i get it to copy the whole row?

Sub copiedfiltereddata()
mr = Sheets("Section 2").Columns(1).Find("avon").Row
With Range("a2:a70")
.AutoFilter Field:=1, Criteria1:="favo"
mc = .SpecialCells(xlVisible).Count
Sheets("section 2").Rows(mr + 1 & ":" & mr + mc).Insert
.SpecialCells(xlVisible).Copy _
Sheets("section 2").Cells(mr + 1, 1)
.AutoFilter
End With
End Sub

Cheers

P