Pessoal,

Preciso da ajuda de vocês para realizar uma macro no qual de acordo com o nome dos Usuários eu clique no nome de cada um e a partir daí, vai filtre o nome selecionado, exclui os demais e salve no caminho específico de acordo com o nome que eu filtrei.
Já fiz este modelo abaixo, ela funciona porém sempre que preciso inserir outros nomes ou excluir da um trabalho enorme, tenho que fazer um por um.

Não entendo muito de VBA, gostaria da ajuda de vocês para me auxiliar com esta macro.

Grato.

SEgue abaixo o exemplo que utilizo hoje.

Sub Alexia_DM_()
'
' ATCORRETIVA Macro
'

'

Dim Pasta As String
Dim Planilha As Object
Dim OpenBook As String

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

Workbooks.Open Filename:= _
"S:Sky SacSupervisoresHotlineDADOS PAULO2017DISTRIBUIRDEMAIS SERVIÇOSBASE DEMAIS SERVIÇOS.xlsx" _
, UpdateLinks:=0
ActiveSheet.Range("$A$10:$AF$534").AutoFilter Field:=1, Criteria1:=Array( _
"ANA CAROLINA SILVIA DE JESUS", "BARBARA SANDY DANTAS FERNANDES", _
"CARLOS AUGUSTO FERREIRA DE SOUZA SILVA", "CRISTIANE DA SILVA BOMFIM", _
"ELENY DE SOUSA PRATES BARROS", "FABIANA DE CASSIA SASSARÃO DOS SANTOS", _
"FLAVIO MOREIRA ALVES CARDOSO DE OLIVEIRA", "GABRIEL RODRIGUES DOS SANTOS", _
"GEOVANA SOUZA DIAS", "GIRLENE MATOS DE ALMEIDA", "HELOISA DOS SANTOS NARDI", _
"HENRIQUE BRUM CICHLAR", "INGRID DA SILVA SOARES", "IZABEL DIAS DOS SANTOS", _
"JESSICA COSTA LAMAS", "JORGE WILLIAM PEREIRA DE JESUS", _
"KAREN CRISTINA PEREIRA DOS SANTOS", "KAREN GRAZIELLY CRE NAGAOKA VICENTE", _
"KATIA DE OLIVEIRA SANTOS", "KELLY CRISTINA LEMOS DOS SANTOS", _
"LAISA BASTOS DOS SANTOS", "LARISSA ALESSANDRA SILVA", _
"LEONARDO GUIMARÃES BARBOSA", "LUCIENE DE SANTANA DOMINGOS SILVA", _
"MATHEUS SILVA RODRIGUES", "PAMELA CRISTINA DOS SANTOS VIEIRA", _
"PATRICIA LIMA DA SILVA", "RAFAEL GONÇALVES DOS SANTOS", "SUELI APARECIDA SILVA", _
"TAIANY OLIVEIRA RAMOS", "THAIANE SOARES SILVA", "VANESSA DA SILVA SANTOS", _
"VICTOR HUGO AUGUSTO GUILHERME", "TELMA CONCEICAO BARBOSA DE SOUSA", "VILMAR DA SILVA GUERRA", _
"VITORIA MACEDO DE ALMEIDA"), Operator:=xlFilterValues
Rows("11:11").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Range("A10").Select
ChDir "S:Sky SacOperadoresHotlinePAULODISTRIBUIR"
ActiveWorkbook.SaveAs Filename:= _
"S:Sky SacOperadoresHotlinePAULODISTRIBUIRDEMAISALEXIA MENDONÇA DOS SANTOS.xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select

With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With

End Sub