Add between 10% to 20% random to numbers in cloumn F

[Paul_Hossler]

Fixed value and formula

Option Explicit


Sub FixedValue()
    Dim r As Range, c As Range


    Set r = ActiveSheet.Columns(6).SpecialCells(xlCellTypeConstants, xlNumbers)


    Randomize


    For Each c In r.Cells

        'fixed value
        'c.Offset(0, 1).Value = c.Value * (1.1 + 0.1 * Rnd)

        'formula
        c.Offset(0, 1).Formula = "=" & c.Address & "*(1.1+0.1*RAND())"
    
    Next


End Sub