'aqui asigno una variable a la fila para saber cual es la ultima finalRow = ("A65536").end(xlup).row 'aqui selecciono el rango Range("A1:A" & FinalRow).copy destination:= 'destino