Copiar datos de una hoja a otra con una condición

Quisiera saber como puedo copiar datos de una hoja a otra y que sean de columnas específicas y que se basen en que tienen una condición.
Por decir
"Esto esta en la hoja 1"
                A B C D
1 Nombre Motivo Status Horas
2 José XXXX Proceso 300
3 Raúl XXXX pendiente 250
* en el area de status puedo tener (Proceso, Pendiente, Terminadas, Borrador)
A lo que me refiero por decir tengo así mi tabla en Excel entonces por medio de una macro viendo los estados en la columna C (Debe de tomar toda la columna C) copiar nada más el nombre, el estatus y las horas, y no hacerle caso al motivo.
Y Estos datos pasarlos en una posición especifica digamos que empiece en A6 que yo le indique en otra hoja (En este caso a Hoja 2)
Vi que le contestaste a otro compañero de la página y le mandaste este código, pero no puedo adaptarlo para mi situación.
"Tu código para la macro"
Sub MayorqUno()
' MayorqUno Macro
' Macro grabada el 12/08/2008 por Richard Chacón
Sheets("Hoja2").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A3").Select
Sheets("Hoja1").Select
Range("A3").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=">1", Operator:=xlAnd
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Hoja2").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
ActiveCell.Select
Selection.End(xlToRight).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Hoja2").Select
Selection.End(xlToRight).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.End(xlToLeft).Select
Sheets("Hoja1").Select
Selection.End(xlToLeft).Select
Selection.AutoFilter Field:=5
End Sub