I got the script below from a magazine but the second to
the last line is giving me an error. How can I fix it?

Thanks.

Dim fillRange As Range

Dim numRows As Integer, numCols As Integer

numRows = InputBox("How many rows to fill?", "Do an
extended fill")

numCols = InputBox("How many columns to fill?", "Do an
estended fill")

Set fillRange = ActiveCell.Range(Cells(1, 1), Cells
(numRows, numCols))

Selection.AutoFill Destination:=fillRange,
Type:=xlFillDefault

fillRange.Select