Select and delete contents below diagonal of cell array

I'm not sure what your problem is at this point, or indeed if you still have one.

I looked at your screen shot, but it wasn't enlightening.

The code in Post#11 does just as you requested in your thread title, and in subsequent posts.

The code below fills a 994x994 array with your formula. Then running the Post#11 code clears everything below the principal diagonal, as you requested. So, just what is the problem, or is there still a problem?

Sub formulafill()

Application.Calculation = xlManual

Cells(1).Resize(994, 994) = "=IF($A6=0,0,IF($H6=$B$7,IF($D$7=4,$D$7,0),0))"

Application.Calculation = xlAutomatic

End Sub