Cortar y pegar columnas excel
 

Hola amigos tengo una inquietud mi problema es que uso un código para cortar y pegar celdas de Excel el problema es que cuando la columna supera los 60000 registros da un error y si lo hago con menos no:

EJ este da error: ole error 800a03ec

Código Delphi [-]
    WrKs.Range['A1', 'A999999'].Cut(Wrks.Range['H1', 'H999999']);
    WrKs.Range['C1', 'C999999'].Cut(Wrks.Range['A1', 'A999999']);
    WrKs.Range['H1', 'H999999'].Cut(Wrks.Range['C1', 'C999999']);
    WrKs.Range['F1', 'F999999'].Cut(Wrks.Range['H1', 'H999999']);
    WrKs.Range['G1', 'G999999'].Cut(Wrks.Range['F1', 'F999999']);
    WrKs.Range['H1', 'H999999'].Cut(Wrks.Range['G1', 'G999999']);

Ahora si lo hago hasta 60000 no da error la pregunta es hay alguna manera de cortar y pegar las columnas sin tener este problema gracias como siempre
saludos:!!!!