Macro que copia y pega

[gomescq]

Hola tengo un problema con esta macro, cuando la corro me dice que tiene errores y no mas no realiza lo que le pido, me urge ayuda

Se supone debe copiar un codigo que se genera por formulas a la otra hoja "visitas" y pegarlo en valores, lo que necesito es que cada que apriete el boton pegue en valores un renglon abajo del ultimo
y no hace ni una ni otra jaja

Sub VISITA()

Sheets("Busqueda").Select
Range("Y10").Select
Selection.Copy
Sheets("Visitas").Select

Dim var As String
Dim CUENTA As Integer
var = ActiveSheet.Cells(1, 1).Value
CUENTA = 1

Do While var <> ""
var = ActiveSheet.Cells(1 + CUENTA, 1).Value
CUENTA = CUENTA + 1
Loop

ActiveSheet.Cells(1 + CUENTA, 1).Activate
row1 = ActiveCell.Row
col2 = ActiveCell.Column


ActiveSheet.Cells(row1 - 1, col2).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Busqueda").Select
Range("B3:B4").Select
End Sub

Agradeceria demasiado si me pueden ayudar!

[mrocf]

No parece ser nada -especialmente- complicado lo que requieres.

Pero razonemos juntos: muestras un código que no hace lo que pretendes... ¿Te parece que él pueda servirnos de guía para ayudarte?...

Entonces y sin ver la distribución de los datos en la hoja origen y en la hoja destino, es difícil ser precisos.

[gomescq]

Iniciado por mrocf

No parece ser nada -especialmente- complicado lo que requieres.

Pero razonemos juntos: muestras un código que no hace lo que pretendes... ¿Te parece que él pueda servirnos de guía para ayudarte?...

Entonces y sin ver la distribución de los datos en la hoja origen y en la hoja destino, es difícil ser precisos.

La cosa es que si copia y si pega pero 1 no pega en valores y 2 no baja un renglon. Ya encontre la respuesta de todos modos muchas gracias

[mrocf]

Gracias por avisar, entonces.