Triangulo De Pascal En Excel

Puedes hacerlo con una macro. Esta macro hace el proceso para cualquier cantidad de números base, pero no hace una validación de los datos, es decir no valida que sean números de un solo dígito, que sean números, etc.

SubPascal()    DimNumerosBaseAsString    DimHojaAsString    Dim i AsInteger    Dim j AsInteger    DimValorActualAsInteger    DimValorSiguienteAsInteger    DimDiferenciaAsInteger    DimNumeroColumnasAsInteger    DimContadorAsInteger    NumerosBase="D3:G4"    Hoja="Hoja1"    NumeroColumnas=ThisWorkbook.Sheets(Hoja).Range(NumerosBase).Columns.Count    WithThisWorkbook.Sheets(Hoja)        i =1        j =1        DoWhile i NumeroColumnas            ValorActual=Val(.Range(NumerosBase).Cells(i, j))            ValorSiguiente=Val(.Range(NumerosBase).Cells(i, j +1))            DoWhile j NumeroColumnas                IfValorSiguienteValorActualThen                    Diferencia=10-(ValorActual-ValorSiguiente)                Else                    Diferencia=ValorSiguiente-ValorActual                EndIf                IfDiferencia>9Then                    ExitSub                EndIf                .Range(NumerosBase).Cells(i +1, j +1)=Diferencia                j = j +1                ValorActual=Val(.Range(NumerosBase).Cells(i +1, j))                ValorSiguiente=Val(.Range(NumerosBase).Cells(i, j +1))            Loop            i = i +1            j = i        Loop    EndWithEndSub

Muchas gracias señor Experto, pues una macro me parece genial, pero resulta que al crear la macro cuando la ejecuto me aparece una ventana que dice

Error de compilación:

Error de sintaxis

dejo la imagen para que me corrija si tal ves estoy haciendo mal el procedimiento de crear la macro de ser asi pido amablemente me explique muchas gracias:

Creo que hubo un error al guardarse mi respuesta anterior. Te vuelvo a poner la macro

Sub Pascal()
    Dim NumerosBase As String
    Dim Hoja As String
    Dim i As Integer
    Dim j As Integer
    Dim ValorActual As Integer
    Dim ValorSiguiente As Integer
    Dim Diferencia As Integer
    Dim NumeroColumnas As Integer
    Dim Contador As Integer
    NumerosBase = "D3:G4"
    Hoja = "Hoja1"
    NumeroColumnas = ThisWorkbook.Sheets(Hoja).Range(NumerosBase).Columns.Count
    With ThisWorkbook.Sheets(Hoja)
        i = 1
        j = 1
        Do While i < NumeroColumnas
            ValorActual = Val(.Range(NumerosBase).Cells(i, j))
            ValorSiguiente = Val(.Range(NumerosBase).Cells(i, j + 1))
            Do While j < NumeroColumnas
                If ValorSiguiente < ValorActual Then
                    Diferencia = 10 - (ValorActual - ValorSiguiente)
                Else
                    Diferencia = ValorSiguiente - ValorActual
                End If
                If Diferencia > 9 Then
                    Exit Sub
                End If
                .Range(NumerosBase).Cells(i + 1, j + 1) = Diferencia
                j = j + 1
                ValorActual = Val(.Range(NumerosBase).Cells(i + 1, j))
                ValorSiguiente = Val(.Range(NumerosBase).Cells(i, j + 1))
            Loop
            i = i + 1
            j = i
        Loop
    End With
End Sub