Llenar números en forma de culebra con VBA

Tengo el siguiente ejercicio para resolver en VBA.