Le meti Range("A2").Select entre estas 2 lineas
Código:
Application.CutCopyMode = False
End With
y solucione lo de que el rango en la copia, quedaba selecionado
Al menos para que la copia quede TOTALMENTE PROTEGIDA, necesito unas mano inocente que mueva los dedos jejejejje
Gracias