Good morning, here is my problem. I am struggling with maybe the last line of missing code. The code below populates w2 and w3 with "1" and "2" respective. It then selects the range I need (to the last row). I need the sequential numbering. In this case it would be "1" thru "8". However I can't get it to fill the range. Any ideas would be appreciated
Range("w2").Select
ActiveCell.FormulaR1C1 = "1"
Range("w3").Select
ActiveCell.FormulaR1C1 = "2"
Range("I1").Select
Selection.End(xlDown).Select
lastRow = ActiveCell.Row
Range("w2:w3").select
ActiveCell.Offset(0, 0).Range("A1:A" & (lastRow - 1)).Select
Range("w2").Select
ActiveCell.FormulaR1C1 = "1"
Range("w3").Select
ActiveCell.FormulaR1C1 = "2"
Range("I1").Select
Selection.End(xlDown).Select
lastRow = ActiveCell.Row
Range("w2:w3").select
ActiveCell.Offset(0, 0).Range("A1:A" & (lastRow - 1)).Select