The first formula I did it with 3 sheets :)
so the basics it's working

The last formula u gave i can control where i put to start in sheet2, this
case row B.
But i'm not getting to start in line 2 and i can't choose the rows that i
will extract. I've changed many variables but i can't either of these cases.

Sub comlin3()
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "C").Value = "K" Then - It only works like this, the
Range("A1").Value don't work, and i tryed hard
iRow = iRow + 1
Cells(i, "C").Resize(, 10).Copy Worksheets("Sheet2").Range("B" &
iRow)
End If
Next i
End Sub

Can u help again?

Thanks again