autofill

[GordonLS]

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

 

[GordonLS]

Yes, data is being added and removed prior to running the code you provided. The number of rows vary each day but the headers are static and the reference column for LR will always be the same, column "I" which I changed from "A".

A hundred or so lines of code prior to this:

Dim lr As Long

lr = Cells(Rows.Count, "I").End(xlUp).Row

Range("w2").Select
ActiveCell.FormulaR1C1 = "1"
Range("W2:W" & lr).Formula = "=Row()-1"
Range("W2:W" & lr).Value = Range("W2:W" & lr).Value
Range("x2").Select
ActiveCell.FormulaR1C1 = "1"
Range("x2:x" & lr).Formula = "=Row()-1"
Range("x2:x" & lr).Value = Range("x2:x" & lr).Value
Range("a1").Select
End Sub

 

[Joe4]

So it would be important to have that last row calculation happen AFTER all the additions/removals are complete (I would recommend putting it right before the line where we are doing the autofill), and it is important to make sure that we have it look at a good column to accurately identify where the current data ends.

 

[GordonLS]

Works for me. Thanks Joe.

Gordon.

 

[Joe4]

You are welcome.