Não sou um especialista em VBA, mas acho que consegui resolver seu problema utilizando o código disponível aqui.
Antes de testar, duas configurações precisam ser feitas:
- No projeto VBA, adicionar a referência
Microsoft Visual Basic For Applications Extensibility 5.3
:

- Na planilha, ir em Opções -> Central de Confiabilidade -> Configurações da Central de Confiabilidade -> Configurações de Macro -> selecionar Confiar no Acesso ao modelo de objeto do projeto do VBA
Feito isso, adicione o seguinte código a um módulo:
Option Explicit
Sub Adicionar_Analista()
Dim moduleName As String
moduleName = addModule
WriteToModule moduleName, CStr("")
End Sub
Private Function addModule() As String
Dim VBProj As VBIDE.VBProject
Dim VBComp As VBIDE.VBComponent
Dim CodeMod As VBIDE.CodeModule
Set VBProj = ThisWorkbook.VBProject
Set VBComp = VBProj.VBComponents.Add(vbext_ct_StdModule)
Set CodeMod = VBComp.CodeModule
Dim macro As String
Dim nome As String
nome = InputBox("Nome do Analista")
Dim vbDQ As String
vbDQ = """"
macro = "Sub " & nome & "()" & vbCrLf _
& vbTab & "Application.ScreenUpdating = False" & vbCrLf _
& vbTab & "Call limpaFiltro" & vbCrLf _
& vbTab & "Call resetEmail(Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call BuscaBasePenhoras(" & vbDQ & nome & " " & vbDQ & ", " & vbDQ & "Pendente" & vbDQ & ", Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call BuscaPendencias(" & vbDQ & nome & " " & vbDQ & ", Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call ExibePendenciasDaAgenda(Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call ExibePendenciaAgendaNoEmail(Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call acoesPro(" & vbDQ & nome & " " & vbDQ & ", " & vbDQ & "Pendente" & vbDQ & ", " & vbDQ & "ACAO PRO" & vbDQ & ", Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call ExibeTextoAcaoPro(Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call ExibeAcoesProNoEmail(Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call PendenciasNoEmail(Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call EmAnalise(" & vbDQ & nome & " " & vbDQ & ", " & vbDQ & "Em Análise" & vbDQ & ", Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call REDLINE(" & vbDQ & nome & " " & vbDQ & ", " & vbDQ & "xAtualizado" & vbDQ & ", Sheets(" & vbDQ & "Email_" & nome & vbDQ & "))" & vbCrLf _
& vbTab & "Call ClearClipboard" & vbCrLf _
& "End Sub"
CodeMod.AddFromString macro
addModule = VBComp.Name
End Function
Private Sub WriteToModule(moduleName As String, arrayName As String)
With ActiveWorkbook.VBProject.VBComponents(moduleName).CodeModule
.InsertLines .CountOfLines + 2, ""
End With
End Sub
Para rodar, basta chamar a Sub. Por exemplo, com um botão:
Private Sub CommandButton1_Click()
Call Adicionar_Analista
End Sub
Será aberta uma InputBox pedindo o nome do analista.
Como o código que será escrito na Sub está dentro de uma string, é importante tomar alguns cuidados:
- As aspas que vão pra sub dinâmica não podem ser explicitas, você pode colocar
""""
ou, como eu fiz, utilizar uma variável para facilitar a leitura.
- Todas as linhas tem que terminar com
& vbCrLf _
para pular a linha e concetenar a string
Cada analista será adicionado em um novo módulo (deve ser possível juntar tudo em um só alterando o código).