>>271
質問がとっちらかっててよくわからん
とりあえず>>272のコード

Sheets("SH2").Activate
num = 5
r = 1
For i = 1 To num
　　For j = 1 To 5
　　　　If i <> j Then
　　　　　　Cells(r, 5) = j
　　　　　　r = r + 1
　　　　End If
　　Next
　　Cells(r, 5) = "-----"
　　r = r + 1
Next