Problems copying/pasting grouped rows and columns

[pliskers]

I have a macro that inserts a blanks sheet in a workbook, then copies and pastes as values the entire contents of another sheet that has groupings in both rows and columns.

The code (which I did not write) appears below. Can someone have a look and please tell me why the groupings are not properly being copied into the newly inserted sheet? Ideally, I want all values, formats, and column widths to appear exactly the same in the copied worksheet.

Thank you!

Sheets("VPM").Select
Cells.Select
Selection.Copy
Sheets("Geog").Select
Cells.Select
ActiveSheet.Paste
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

Rows("8:8").Select
Selection.RowHeight = 100
Columns("A:A").Select
Selection.EntireColumn.Hidden = True

ActiveWindow.Zoom = 75
ActiveWindow.DisplayGridlines = False
ActiveWindow.FreezePanes = False
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=4
ActiveSheet.Outline.ShowLevels RowLevels:=2
Range("C12").Select
ActiveWindow.FreezePanes = True
Application.CutCopyMode = False
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
ActiveSheet.Outline.ShowLevels RowLevels:=1

 

[pliskers]

Just a follow up: I think there may be a problem with the file, which was converted to an xlsm from xls. I know that copy/pasting the formats with the entire sheet highlighted is supposed to work, but when I do that manually, only a handful of the grouped rows appear grouped in the pasted new tab.

I've worked around this by doing two separate copy/pastes of the highlighted rows, then the columns, but this is highly inefficient. Please advise if anyone has encountered a similar issue, or if I'm missing something.

Thanks,