Excel - Seleccionar Fila :S

[Pablus00]

Hola colegas, necesito una mano para resolver este lio, tengo 2 hojas, una de ellas tiene datos acomodados en filas con su nombre, apellido, compra, etc, intento hacer un macro, que desde la celda P9 hacia abajo, si esta escrito ok, que se seleccione toda esa fila y se copie en la 2da hoja.


Range("Q9").Select
'mientras la celda tenga escrito algo de informacion que se detenga ahi
Do While ActiveCell.Value <> Empty
'me muevo una columna a la izquierda hasta el casillero "status"
ActiveCell.Offset(0, -1).Select
If ActiveCell.Value = "OK" Then
'ActiveCell.Rows.Select
Range(Cells(ActiveCell.Row, 1)).Select
End If
Loop

Hasta aca llegue, y no logro poder seleccionar la fila que contiene el dato "OK" en la columna P..