Codigo selección en excell

[Crashman]

Pues no lo eh probado por que lo acabo de hacer aqui...pero ahi te va

Código:

Sub inicia()
'abre el archivo--
    Workbooks.Application.FindFile
'el archivo abierto es origen--
    origen = ActiveWorkbook.Name
'adhiere una hoja a excel nueva--
    Application.Workbooks.Add
'-Destino es la hoja nueva
    destino = ActiveWorkbook.Name
'-Activa----
    Workbooks(origen).Activate
    Application.ScreenUpdating = False
celda2= 1
cdestino=1
While Workbooks(origen).Worksheets(1).Cells(celda2, 1).Value <> ""
            If Cells(celda2, 1).Value <> "" Then
                Cells(celda2, 1).Select
                fila = Selection.Row
                Rows(fila).Copy
                Workbooks(destino).Worksheets(1).Cells(cdestino, 1).PasteSpecial
             Application.cutcupymode=false
Application.ScreenUpdating = true
celda2 = celda2 + 1
cdestino = cdestino + 1
wend
End sub