Fill rows with incremental data

Originally Posted by kobiashi

in another column i need to add numbers 354 to 510, incrementally, and carry this out 166 times, could this marco be customised to suit?

Sure. Use:

Sub bar()
    Dim lLow As Long
    Dim lHigh As Long
    Dim lQty As Long
    
    'Change variables to suit
    lLow = 354
    lHigh = 510
    lQty = 166
    
    With ActiveSheet.Range("C1").Resize((1 + lHigh - lLow) * lQty, 1)
        .ClearContents
        .Formula = "=MOD((ROW()-1),(" & 1 + lHigh - lLow & "))+" & lLow
        .Value = .Value
    End With
    
End Sub