COPIAR DATOS DE VARIAS HOJAS Y PEGARLAS EN UNA CON MACRO

MUY BUEN DIA UN SALUDO, TENGO UN DILEMA RESPECTO DE UN ARCHIVO DONDE
TENGO 3 HOJAS NOMBRADAS ( CP - PG - TOT ) EN LAS CUALES TIENEN LOS
MISMOS ENCABEZADOS A PARTIR DE LA FILA "A8" Y UTILIZO UNA MACRO PARA
COPIAR LOS DATOS DE LAS DOS PRIMERAS HOJAS (CP-PG) Y PEGARLAS EN
(TOT), SOLO QUE LA MACRO ME PERMITE IR INDICANDO DE QUE HOJA QUIERO
COPIAR LOS DATOS, MI CUESTION ES COMO HACERLE PARA QUE LA MACRO ME
PERMITA COPIAR AMBAS HOJAS CON SUS RESPECTIVOS DATOS Y PEGARLAS SIN LA
INDICACION DE SELECCIONAR UNA POR UNA DE LAS HOJAS..TAMBIEN ME
GUSTARIA SABER SI AL COPIAR LOS DATOS DE LAS HOJAS (CP-PG) SE PUEDAN
BORRAR LOS DATOS EN (TOT) A MANERA DE SOBREESCRIBIR CADA VEZ QUE CORRA
LA MACRO...ESPERO ALGUNA DE LOS EXPERTOS ME PUEDA APOYAR MUCHAS
GRACIAS DE ANTEMANO

Sub ACUMULATOT()

'Copia registros
Dim A As String
Dim n As Long
Application.ScreenUpdating = False

A = InputBox("INDIQUE EL MES A VACIAR")

Sheets(A).Select
Range("C2000").End(xlUp).Select
n = Selection.Row
Range(Cells(9, 1), Cells(n, 17)).Select
Selection.Copy
Sheets("TOT").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial
Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:_
Application.CutCopyMode = False
Application.CutCopyMode = False

Range("B8").Select
MsgBox "Los datos fueron copiados", vbInformation
Application.ScreenUpdating = True

End Sub