We need our macro to paste a formula to a cell inevery third row, and then copy the formula down the columns to the end of the data.
We have tried:
' ThirdRow Macro
Dim rng1 As Range
Dim numcols As Long, i As Long
Set rng1 = [F5]
numcols = Int(Columns.Count - rng1.Column) / 3
Application.ScreenUpdating = False
For i = 1 To numcols + 1
rng1.Offset(0, 3 * (i - 1)) = E5 * 0.01
Application.ScreenUpdating = True
But it only pastes zero as a value.
The formula in the third column, use the value in the second column to calculate the new value.
Any insight or suggesions would be appreciated.