VBA for autofill

Mucho_Elanstrand Glad I could help

Smitty Smith 

You, sir are a saint!!! Sorry for the late reply, I was traveling on Friday.

Thank you for all your help with this - very much appreciated. 

Mucho_Elanstrand Here you go:

Option Explicit

Sub BuildAll()
    Call BuildArray
    Call ReportArray
End Sub

Sub BuildArray()
    Dim i As Long
    Dim x As Long
    Dim y As Long
    Dim ws As Worksheet
    
    Set ws = Sheets("Array")
    x = Application.InputBox("How many columns do you want to fill?", "Column Count", 1, Type:=1)
    y = Application.InputBox("How many rows do you want to fill?", "Row Count", 1, Type:=1)
    
    With ws
        .Activate
        .UsedRange.Offset(1).ClearContents
        .Range("A2:A" & y + 1).Value = 1
    
        For i = 1 To y
            .Range(Cells(i, 2), Cells(i, x)).Offset(1).Value = i
        Next i
    End With
    
End Sub

Sub ReportArray()
    Dim lr As Long
    Dim lc As Long
    Dim i As Long
    Dim x As Long
    Dim y As Long
    Dim ws As Worksheet
    Dim ws1 As Worksheet
    
    Set ws = Sheets("Results")
    ws.Range("A1:B" & Cells(Rows.Count, "A").End(xlUp).Row).ClearContents
    
    Set ws1 = Sheets("Array")
    lr = ws1.Cells(Rows.Count, "A").End(xlUp).Row - 1
    lc = ws1.Cells(1, Columns.Count).End(xlToLeft).Column
    
    i = 1
    For x = 1 To lc
        For y = 1 To lr
            ws.Cells(i, "A").Value = x
            ws.Cells(i, "B").Value = y
            i = i + 1
        Next y
    Next x
        
End Sub

Workbook is attached as well.