dual loop sequence number

Sub macro4()

   Dim i As Integer

   Dim j As Integer

   Dim k As Integer

   

   Dim starter As Integer

   Dim closer  As Integer

   

   k = 0

   starter = 0

   closer = 9

   

   

   For i = starter To closer

      For j = starter To closer

         k = i * (closer + 1) + j + 1

         With ActiveCell

            .Offset(i, j) = k

         End With

      Next j

   Next i

End Sub