Visual Basic - AYUDA con macros

Hola

Estoy tratando de hacer una macro que localice un valor en la columna C, una vez localizado, borre toda la fila y la pegue en otra hoja, pero no lo logro.
A lo único que he llegado es a esto,

Sub nose()
While ActiveCell.Value <> ""
If ActiveCell.Value <> "3" Then
ActiveCell.Offset(1, 0).Range("C1").Select
Else
Selection.EntireRow.Cut
ActiveSheet.Paste Destination:=Worksheets("Sheet3").Range("a1")
End If
Wend

End Sub

Alguien podría ayudarme a lograr lo que busco.
GRACIAS.......