Cita:
Iniciado por mrocf 
Si NINGUNA de esas celdas contiene alguna fórmula, entonces puedes reemplazar:
.Columns(1).Copy 'Columna A
Sheets(4).[A2].PasteSpecial Paste:=xlPasteValues 'Pega en la hoja4
por:
.Columns(1).Copy Sheets(4).[A2] 'Columna A a la hoja4
Saludos, Cacho.
Entiendo, Si celdas no tienen formula, puedo hacer el cambio que sujieres
Si tienen formula, dejo tal como lo puse arriba ¿cierto?, XQ algunas si que tiene formula
Pregunto si frecuentas emagister tambien