Copie datos de ListColumn a otro

Estoy copyndo / pegando valores de una ListColumn a otra con

Worksheets(1).ListObjects(1).ListColumns(1).DataBodyRange.Copy Worksheets(2).Range("A2") 

donde Worksheets(2) también tiene un ListObject.

Esto es extremadamente lento Supongo que es porque está expandiendo la tabla para cada fila que inserto?

He intentado usar

 Application.ScreenUpdating = False Application.Calculation = xlManual Application.EnableEvents = False 

pero no lo hace más rápido.

También he intentado

 Worksheets(2).ListObjects(1).ListColumns(1).DataBodyRange = Worksheets(1).ListObjects(1).ListColumns(1).DataBodyRange 

pero tampoco hace diferencia.