Hi, trevor2524,

maybe
Sub EF961982()
Range("B2").AutoFill Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row)
End Sub
Ciao,
Holger