I want to thank u for trying to help me.
I had opened another post and now i have the solution.

Make a macro:
Sub myData()
For i = 1 To Cells(Rows.Count,"A").End(xlUp).Row
If Cells(i,"C").Value = "K" Then
iRow = iRow + 1
Rows(i).Copy Worksheets("Sheet2").Rows(iRow)
End If
Next i
End Sub

put it in a standard code module, and then call the macro from the worksheet
via ToolsMacroMacros...

It really makes it :)

Thank u again