Напишите программу для решения задачи:
Найти значение выражения:

3,7,9
37,93,79
973,979,373
Вообще говоря это зависит от формулировки "используя цифры". Из задания непонятно, использовать нужно ВСЕ цифры, или достаточно использования любых из них. Если под словом "используя" понимать, что можно использовать только эти цифры, но при этом использовать все не обязательно, то можно записать 77 и 999.
Всего трёхзначных чисел из цифр 3,7,9 можно записать 3*3*3 (по три возможных цифры на каждую позицию - если цифры на позициях могут повторяться. и 3*3*1, если не могут повторяться.

Sub Ex()
    Dim Y() As Integer, X() As Integer
    Dim i As Integer, n As Integer
    Range(Cells(1, 2), Cells(100, 2)).ClearContents
    i = 1
    Do While Len(Cells(i, 1).Value) <> 0
        i = i + 1
    Loop
    n = i - 1
    ReDim Y(1 To n), X(1 To n)
    For i = 1 To n
        Y(i) = Cells(i, 1).Value
        X(i) = Y(i) + i
        Cells(i, 2).Value = X(i)
    Next i
End Sub

Предполагается, что данные располагаются в колонке А, начиная с ячейки А1
В колонку B будет выведен результирующий массив.
Признак конца считывания - пустая ячейка в колонке А