Macro datos en matriz

He escrito las 2 primeras columnas.
Donde está el 17 colocas:
=16+(casilla donde está el 1)
Arrastras todas las filas, porque sólo te deja la fila o la columna. Y después las columnas, hasta las 100. Y después borras las que sobran
Si has de hacerlo con una función que sólo coja el rango de los datos y que te lo haga automáticamente sin borrar nada, dímelo. Si quieres la versión medio cutre esta es.

Hola Antares recién hoy veo la respuesta... no se porque el sistema no me aviso al mail, la verdad es que este tema lo tenia medio de lado porque estaba realizando otras macros probé tu solución y esta buena pero también me gustaría ver como hacerlo desde una función sdos y gracias

El num_filas es 8 y Hasta_que_Numero es 100. El num_filas lo he puesto como variable vaya a ser que a tus jefes les dé el puntazo y en vez de cada 8 lo quieran cada 10 o 15
Has de colocarte en la fila que quieres que empiece. Si hay datos en donde pasa los borrará y no se podrá recuperar
La función offset es como la de Range("A1"). Offset(0,1) pero esta función es de sólo lectura. La que te escrito es de escritura
Sub dato(Num_filas As Double, Hasta_que_Numero As Double)
'
' dato Macro
'
    Dim i As Double
    Dim j As Double
    Dim valor As Double
    For j = 0 To CInt(Hasta_que_Numero / Num_filas)
        For i = 0 To Num_filas - 1
            valor = 16 * j + 2 * i
            If ((valor + 1) > Hasta_que_Numero) Then
                Exit For
            Else
                Offset(ActiveCell.Address, i, 0 + 2 * j).Value = 1 + 16 * j + 2 * i
            End If
            If ((valor + 2) > Hasta_que_Numero) Then
                Exit For
            Else
                Offset(ActiveCell.Address, i, 1 + 2 * j).Value = 2 + 16 * j + 2 * i
            End If
        Next i
    Next j
'
End Sub
Private Function Offset(Celda, Fila As Double, Columna As Double) As Range
    Set Offset = Range(Celda).Offset(Fila, Columna)
End Function