Copiar filas entre hojas

[Piyin]

Hola de nuevo,

Tengo un libro con 15 hojas de datos y 1 inicial donde quiero hacer un resumen. Necesito copiar todas las filas de las 15 hojas que contengan datos a la primera hoja llamanda RESUMEN. He buscado en el foro y la red y he encontrado una macro que lo hace pero necesito que me copie desde el rango A2 hasta la K2 todas las filas que tengas datos, esdeir que cuando en la columna A encuentre una celda en blanco para de opiar. Os dejo la macro

Sub ejemplo()

'por luismondelo

'Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

'ActiveSheet.Name = "RESUMEN"

For Each Hoja In ActiveWorkbook.Sheets

If Hoja.Name <> "RESUMEN" Then

Hoja.Range("A2:K" & Hoja.Range("A65536").End(xlUp).Row).Copy

Sheets("RESUMEN").Range("A65536").End(xlUp).Offset(3, 0).PasteSpecial Paste:=xlValues

End If

Next

End Sub

Gracias y saludos.