Listeye veri girmeyenlerin görüntülenmesi

[HBKN84]

Ekte gönderdiğim dosyada da belirtildiği gibi;

1'den 7'ye kadar numaralar alt alta sıralanmış. Numaralar ile ilgili sırası ile A, B, C görüşleri girilmesi gerekiyor. Görüş girilmeyen numaraların gösterilmesi ile ilgili nasıl bir formül yazabiliriz ?

Yardımlarınızı rica ederim, teşekkürler

 

[hamitcan]

Sub test()
    c = 2
    d = 7
    For j = 3 To 5
        For i = 3 To 9
            If Cells(i, j) = "" Then c = c + 1: Cells(c, d) = Cells(i, 2)
        Next
    c = 2
    d = d + 1
    Next
End Sub