¿Cómo copio hoja 4 y hoja 5 a un libro nuevo de excel?

Lo que pasa es que en estas hojas tengo subtotales y quiero copiarlas tal cual, pero algunas de las columnas (B, E y G) tienen insertadas la formula buscarv, al momento que la copio me marca error REF en esas columnas y solo me copia los valores tengo este código en un modulo que solo copia la hoja 4, pero quiero que copie también la 5 con las mismas características (que conserve la función de subtotales)

Range("A:ae").Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False ChDir "C:\Users\Usuario.AdminPC-1\Desktop\Omar" ActiveWorkbook.SaveAs Filename:="C:\Users\Usuario.AdminPC-1\Desktop\Omar\MAPFinal.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

muchas gracias de antemano