Codigo selección en excell

[parmijo]

Hola a todos, quisiera saber si es posible obtener un codigo que me
seleccione los datos de una lista para copiarlos en otra Hoja (esta lista puede cambiar en la antidad de datos)
Ejem.

a b c d e
1 520 12 11 50 20

2 124 12 23 44 55

3

Que tome desde A1 a E2 y lo copie, pero si tengo algun dato en A3 que seleccione A1 A E3
De antemano Muchas Gracias

[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

[parmijo]

Bueno Gracias por la respuesta, pero cuando ejecuto el codigo me da un error
no se ha definido La variable
origen = ActiveWorkbook.Name
Perdon pero soy un poco nuevo en esto

[Crashman]

Pon esto en el principio

Código:

Option Explicit
Dim origen As String
Dim destino As String
Dim fila As Integer
Dim celda2 As Integer
Dim cdestino As Integer

[william royet]

La stevia un arbusto originario del Paraguay, utilizado por los nativos como un endulcorante para bebidas. soy colombiano radicado en la costa caribe al norte de colombia. necesito saber como se comercializa en colombia.

[parmijo]

ok gracias a ahora me funciono