Llenar Rango de Números

[aaquino]

Muy buen día, tarde, noche.

Vengo a molestarlos con una inquietud que tengo. 

Cómo puedo hacer para llenar un rango específico del 1 al 100 en una hoja de excel con macros, pero que no pase de la columna "H". Es decir, hasta la columna "H" caben 8 números, entonces en la siguiente fila, que comience con el 9, en la siguiente con el 17, y así sucesivamente hasta llegar al 100.

Me podrían orientar cómo se puede hacer

Gracias de antemano por su colaboración.

muestraAA.xlsx

[Dr Hyde]

prueba esta macro

Sub llenar()
Set area = Range("a1").Resize(13, 8)

For i = 1 To 100
    area(i) = i
Next i

End Sub

[aaquino]

Nítido, buenisima onda.. te lo agradezco @Dr Hyde

Tema resuelto

[Antoni]

Otra forma:

Sub NumerarDel1Al100()
For n = 0 To 99
   Cells(Int(n / 8) + 1, (n Mod 8) + 1) = n + 1
Next
End Sub