Помогите сформировать макрос единичной матрицы.

Очень все понятно и подробно! ) В чем этот макрос делать? Что этот макрос должен делать? Просто формировать единичную матрицу?
Если макрос на VBA, то примерно так:

for i=1 to n
for j=1 to n
if i=j then Cells(i,j)=1 else Cells(i,j)=0
next j
next i