Ayuda en macro

Prueba con:

Sub PasaDatos()
Dim celda As Range
Dim ref, fila As Long
Worksheets("Hoja1").Range("A1:A" & Cells(65535, 1).End(xlUp).Offset(1).Row).Select
For Each celda In Selection
If celda > 0 And Cells(celda.Row, 13) > 0 Then
ref = celda.Value
Else
If celda > 0 Then ref = 0
End If
If ref > 0 Then
fila = fila + 1
celda.EntireRow.Copy Destination:=Worksheets("Hoja2").Cells(fila, 1)
End If
Next celda
End Sub

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

Hola Grupo necesito de su ayuda nuevamente en lo siguiente:

tengo en la hoja 1 una base de datos grande con 15000 filas y 10
columnas

en la columna A tengo referencias (numero) y desde la columna b hasta
la m caracterististicas asociadas a esas referencias.

Columna M (Valores >= 0)

Las referencias de las columna A pueden ser que tengan caracteristicas
en mas de una fila ( Si esta en a1 la referencia y tiene 3
caracteristicas las celdas a2 y a3 estaran en blanco pero se
sobreentiente que son caractaristicas de la referencia que está en a1)

Lo que necesito es que en la hoja 2 se reflejen solo las referencias
junto a todas sus caracteristicas, pero solo los que tengan un valor
en la columna M > 0

Aqui les pongo el ejemplo para que se visualise mejor:

Hoja 1
______A______B___________M
1____12345___xxx____xxxx______542
2____________xxx____xxxx______
3____________xxx____xxxx______
4____12347___xxx____xxxx______874
5____________xxx____xxxx______
6____154_____xxx____xxxx______
7____8764____xxx____xxxx______5


Hoja 2

______A______B___________M
1____12345___xxx____xxxx______542
2____________xxx____xxxx______
3____________xxx____xxxx______
4____12347___xxx____xxxx______874
5____________xxx____xxxx______
6____8764____xxx____xxxx______5

Espero se halla entendido y de antemano gracias por su ayuda.