Macro para seleccionar valores

Hola Marcelo.

La siguiente macro hace lo que tu indicas.
Hoja2 es la hoja donde copia los resultados
Range("A65536") se posiciona en la última celda de la
columna A y sube hacia arriba hasta el primer valor vacío.
Ajusta la letra a la columna que te interese.


Sub seleccionar_rango()
Dim Rangoseleccionado As Range
Dim Celda As Range
Dim hoja As Worksheet
Dim celdaseleccionada As String
Dim numerodevalores As Integer
Set Rangoseleccionado = Application.InputBox("Seleccionar
Rango", "Marcar Celdas a Incorporar", , , , , , 8)
Set hoja = ActiveWorkbook.Sheets("Hoja2")
celdaseleccionada = hoja.Range("A65536").End(xlUp).Offset
(1, 0).Address
For Each Celda In Rangoseleccionado
hoja.Range(celdaseleccionada).Offset(numerodevalores,
0).Value = Celda.Value
numerodevalores = numerodevalores + 1
Next Celda
End Sub

Atentamente,

Benito Merino

Hola a Todos.

Lo que busco es una macro que me permita seleccionar
valores de un rango determinado y que los vaya copiando

en

otra columna de otra hoja. Digamos de arriba para abajo.
Entonces, que cada vez que active la macro, vaya a la
primer celda vacia de la columna donde copié los datos
(ej. si el último valor copiado fue en A12 que vaya a

A13)

y copie los nuevos valores y así sucesivamente de modo de
que en esa columna vayan quedando registrados los datos

de

cada una de las operaciones que realicé.
.