Hey there,
Give this macro a try and let me know if the numbers look correct!
Public Sub FillAnalysisTable()
Dim valSheet As Worksheet
Dim b26 As Variant
Dim b24 As Variant
Dim lastRow As Long
Dim lastCol As Long
Dim thisRow As Long
Dim thisCol As Long
Set valSheet = Sheets("Valuation")
With valSheet
b26 = .Range("B26").Value
b24 = .Range("B24").Formula
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
lastCol = .Cells(80, .Columns.Count).End(xlToLeft).Column
For thisRow = 81 To lastRow
.Range("B24").Value = .Cells(thisRow, "A").Value
For thisCol = 2 To lastCol
.Range("B26").Value = .Cells(80, thisCol).Value
.Calculate
.Cells(thisRow, thisCol).Value = .Range("J64").Value
Next thisCol
Next thisRow
.Range("B26").Value = b26
.Range("B24").Formula = b24
End With
End Sub
WBD
Bookmarks