Thank you. I have something working now.

"Gary''s Student" wrote:

Here is a simple example. Say we have data in column A and a formula or
constant in B1 and we want to autofill column B down to match column A:

Sub AutoFilll()
n = Cells(Rows.Count, "A").End(xlUp).Row
Range("B1").AutoFill Destination:=Range("B1:B" & n)
End Sub
--
Gary''s Student - gsnu200848