formula needed...

[dglienna]

I'll let you work out the formatting. I think this is the right sequence, though.

Option Explicit
 
Private Sub Form_Load()
Dim intRunCount%, intRunDiff%, intWhatever%, x%
intWhatever = 8
For intRunCount = 1 To 6
  Debug.Print vbCrLf & intRunCount & "  ";
  For x = intRunCount To 1 Step -1
    Debug.Print "  " & x;
  Next x
  x = 0
 For intRunDiff = 1 To intWhatever
  If x < intWhatever - intRunCount - 1 Then
    Debug.Print "  " & intWhatever - intRunDiff;
    x = x + 1
  End If
 Next intRunDiff
Next intRunCount
End Sub

1 1 7 6 5 4 3 2
2 2 1 7 6 5 4 3
3 3 2 1 7 6 5 4
4 4 3 2 1 7 6 5
5 5 4 3 2 1 7 6
6 6 5 4 3 2 1 7