ejecutar macro en función de valor de celda

Hola a todos.

Tengo el siguiente código que ejecuto desde la hoja "PRINCIPAL" pulsando
Ctrl+a. Esto lo tengo que hacer repetitivamente determinado número de veces
(variable).

Sub auxiliar()
Application.ScreenUpdating = False
Sheets("AUXILIAR").Select
Range("C3:C3").Select
Selection.Copy
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.Offset(2, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Sheets("PRINCIPAL").Select
End Sub

Lo que me gustaría es que una vez que pulse Ctrl+a el código se ejecute
automáticamente mientras el valor de una celda sea mayor que 0 (cero), por
ejemplo la celda J10, y así no tener que pulsar Ctrl+a nada más que una vez.

La verdad es que he probado varias cosas pero no he conseguido que funcione.

Si alguien puede ayudarme le estaré muy agradecido.


Saludos

Osejol