Perhaps use datafilterautofilterfilter the column with test by
testcopypaste to the other sheet row. Record a macro while doing and then
modify to find the last row by using something like.

lastrow=sheets("sheet2").cells(rows.count,"a").end (xlup).row+1
range("yourfilteredrange").copy sheets("sheet2").cells(lastrow,"a")

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Chuck" wrote in message
...
In visual basic

How do i find a row in sheet 1 which has "TEST" in colum K and then in
sheet
2 find the next blank row and paste the hole row from sheet 1 into sheet
2.
there could be 100 rows that have "test" in.

Many thanks