Macro para exportar una hoja a otro libro

Tengo una macro que resumiendo copia y pega en otro libro existente una estadística. Esto funciona perfectamente cuando exporto para 2 o 3 solo cliente, pero ahora tengo que hacerlo para unos 20 clientes, todos van al mismo libro. Quisiera saber si alguien me puede ayudar con el tema. Desde ya muchas gracias

Sub CECH1()

'SEPARA PLANILLA Y COPIA FORMATO
Sheets("AGRUPACION COMERCIAL").Select
Sheets("AGRUPACION COMERCIAL").Copy
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1:K1").Select
Application.CutCopyMode = False

'BORRA BASURA
Sheets("AGRUPACION COMERCIAL").Select
Range("L7").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Delete
Range("I70").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Delete
Range("A1:I1").Select
'MUEVE A MINORISTAS
Sheets("AGRUPACION COMERCIAL").Select
Sheets("AGRUPACION COMERCIAL").Move after:=Workbooks("Seguimiento Minoristas.xlsx").Sheets(Sheets.Count)
'CAMBIA DE NOMBRE ETIQUETA
Dim oldName As String
oldName = "AGRUPACION COMERCIAL"
Dim newName As String
newName = Cells(8, 1).Value
Dim sheet As Worksheet
Set sheet = Application.ActiveWorkbook.Worksheets(oldName)
sheet.Name = newName
ActiveSheet.Move after:=Worksheets(Worksheets.Count)
Windows("SEG. CANALES MINORISTAS MES ACTUAL NEA.xlsm").Activate
ActiveWindow.WindowState = xlMaximized

End Sub