@ bakerman2
So this stores calculated value in array...How to populate range with arr values?
Option Explicit
Sub calculate()
Dim CalcArr As Variant
Dim lRow, lCol, i As Long
Dim rng, cell As Range
lRow = Cells(Rows.Count, "D").End(xlUp).Row
lCol = Cells(3, Columns.Count).End(xlToLeft).Column
With Sheet1
i = 1
Set rng = .Range(.Cells(3, 4), .Cells(lRow, lCol))
CalcArr = rng.value
For i = LBound(CalcArr) To UBound(CalcArr)
CalcArr(i, 1) = CalcArr(i, 1) / .Range("D1")
Next i
End With
rng.value = CalcArr
End Sub
Edited...Nope Not storing used range!!!
Bookmarks