Sub auxProc_Step2() ' Обрабатывается база данных листа 1
Dim k
    .........
    .........
   if k=1 Then
        Worksheets.Add.Name = "List1"
        
        Else: ?????? ' Вот здесь и возникли у меня трудности
    End If
End Sub
________________________________________________________________________________________________________

Sub Roditel() ' управляющий модуль
Call Mod1.auxProc_Step1 'Шаг 1 Заполнение реквизитов
Call Mod2.auxProc_Step2 'Шаг 2 обработка данных листа 1 если условие выполнено то шаг 3
Call Mod3.auxProc_Step3
MsgBox "ШАГ 3"
Call Mod4.auxProc_Step4 'Шаг 4 
MsgBox "Завершение "
End Sub