Aprendiz2050.

Como salvar uma planilha "Aba" exclusiva eu não sei , mais a macro abaixo copiar a planilha ativa para uma nova pasta independente.

Sub CopiaPlanilhaAtiva()
    Dim lPlanilha As String
    Dim lNome As String
    Dim lNovaPlanilha As String
    
    lPlanilha = ActiveWorkbook.Name
   
    lNome = ActiveSheet.Name

   
    Sheets(lNome).Select
    Sheets(lNome).Copy
    

    lNovaPlanilha = ActiveWorkbook.Name
    
    Windows(lPlanilha).Activate
    Cells.Select
    Selection.Copy
    Windows(lNovaPlanilha).Activate
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
    Windows(lPlanilha).Activate
    Range("A1").Select
    Application.CutCopyMode = False
End Sub

Abraço.