Private Sub CommandButton9_Click()
Sheets("summary").Select
Range("CH45:CH61").Select
Selection.Copy
Range("CG45:CG61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("CH73:CH78").Select
Application.CutCopyMode = False
Selection.Copy
Range("CG73:CG78").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("CH82:CH96").Select
Application.CutCopyMode = False
Selection.Copy
Range("CG82:CG96").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("CH112:CH119").Select
Application.CutCopyMode = False
Selection.Copy
Range("CG112:CG119").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("CH124:CH136").Select
Application.CutCopyMode = False
Selection.Copy
Range("CG124:CG136").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("CH140:CH151").Select
Application.CutCopyMode = False
Selection.Copy
Range("CG140:CG151").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Bookmarks