Sub SIMVOL()
Dim R, C, i

For R =  1  To  250  Step  3 
    For C =  1  To  1000 
    i = i +  1 
    If i =  65536  Then Exit Sub
        Cells(C, R).Value = i
        Cells(C, R +  1 ).Value = ChrW(i)
Next C, R
End Sub

Option Explicit
Dim R, C, J
Private Sub Form_Load()
For R =  1  To  120 
    For C =  1  To  6 
               Sp.Cells(R, C).Value = ChrW( 13000  + R + C)
               If C =  1  Then Sp.Cells(R, C).Value = R
Next C
Next R
End Sub

Private Sub Комманда1_Click()
Dim F
R = InputBox("Введите номер строки", "", Int( 120  * Rnd +  1 ))
C = InputBox("Введите номер столбца", "", Int( 6  * Rnd +  1 ))
F = InputBox("Введите код символа", "", Int( 10000  * Rnd +  1 ))
     Sp.Cells(R, C).Value = ChrW(F)
End Sub