Copiar ciertas filas a otra hoja

(Hoy respondí aquí a una consulta similar) Prueba con:

Sub PasaDatos()
Dim celda As Range
Dim fila As Long
Range("P1:P" & Cells(65535, 1).End(xlUp).Row).Select
For Each celda In Selection
If celda >= 45 Then
fila = fila + 1
celda.EntireRow.Copy Destination:=Worksheets("Hoja2").Cells(fila, 1)
End If
Next celda
End Sub

Saludos desde Tenerife: Antonio.
***************************************
"arca" escribió en el mensaje
news:

Buen dia.
Por favor si alguien me puede ayudar.
En la Hoja1 tengo varias filas con datos, en la columna P de la misma hoja
esta un valor numerico que se obtiene de varios calculos, el tema es que
quiero que todas los datos de la filas se copien a la Hoja2 siempre y cuando
el valor en la columna P sea 45 o mayor.

Saludos
Angelc.