perhaps try slight modification 
Sub more_below_diag()
Const n As Long = 6
Dim i As Long, j As Long
With ActiveCell.Resize(n, n)
    For i = 1 To n
        For j = 1 To i - 1
             .Cells(i, j).ClearContents
        Next j
    Next i
End With
End Sub