Pegado de datos

Hola,

tengo una macro que hace un barrido por una matriz (1000 por 100, cada celda de la matriz tiene un 1 o está en blanco) si encuentra un valor (1) guarda dos valores en memoria, la fila y la columna. Al terminar el barrido en otra hoja pega las coordenadas, sin embargo este proceso de pegado es muy lento, en un minuto hace el barrido y en una hora el pegado ¿cómo puedo optimizar esto?