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!