Sub Assign_Sequential_Numbers() ' Add a series of Incremental numbers to Column B based on Range A1:A10 Set Rg = Range("A1:A10") Rg.Offset(, 1).Value = [row(1:10000)] 'or ' Add a series of Incremental numbers to Range E10:E15 based on Column D [D10:D15].Offset(, 1).Value = [row(1:10000)] End Sub