vba copy and paste content from all sheets in a new sheet code example

Example: excel vba copy entire sheet paste values

Sub CopySheetPasteAsValues()
    Sheets("Sheet1").Cells.Copy
    Sheets("Sheet1").Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub