Se tiver uma função que faça a mesma coisa também pode ser... Eu procurei mas não conegui achar

para que voce que usar essa função, dependendo do uso da função, os argumentos podem ser mais reduzidos

Eu quero a função para o seguinte (vou demonstrar, porque não sei direito com explicar):

1*(1+2+3+4+5+6) + 2*(1+2+3+4+5+6) + 3*(1+2+3+4+5+6) + 4*(1+2+3+4+5+6)...

E assim em diante, é só pra facilitar minha vida para não ter que sair fazendo isso toda vez que for necessário .

segue rotina...

Option Explicit

Function GeraFuncaoSequencial(intNumero As Integer, intNumeroArgumentos As Integer)
    Dim sFunc As String, y As Integer, x As Integer, sNumArgs As String, sFormula As String
    For y = 1 To intNumero
        sNumArgs = ""
        For x = 1 To intNumeroArgumentos
            sNumArgs = sNumArgs & "+" & x
        Next
        sNumArgs = Mid(sNumArgs, 2)
        sFormula = sFormula & y & "*(" & sNumArgs & ") + "
    Next
    GeraFuncaoSequencial = Trim(Mid(Trim(sFormula), 1, Len(sFormula) - 2))
End Function

Coloque essa função em uma celula e mesma retorna a sequencia da formula com base nos parametros passados.

Exemplo:
na celula A2, coloque a seguinte formula.

= GeraFuncaoSequencial(3;5)

Isso irá gerá a seguinte sequencia

1*(1+2+3+4+5) + 2*(1+2+3+4+5) + 3*(1+2+3+4+5)

Tá aparecendo exatamente como você disse só que eu quero que ele faça o cálculo, então pra isso seria necessário um igual antes do resultado que aparece.