Sub Macro6()

'

'

    Calculate

    Range("C1050:K1069").Select

    Selection.Copy

    Range("C1076").Select

    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

        xlNone, SkipBlanks:=False, Transpose:=False

End Sub

 

Thank you :)