Find/Copy/paste.. then Find/Paste - not working ... at all....
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
|