Consolidate Worksheets - Help pasting values

Dear experts,

I am having trouble tweaking the code below. I need to paste values and formats to a new workbook (so the one i'm copying from stays intact).

Sub CombineWorksheets1()
Dim Ws As Worksheet
Application.ScreenUpdating = False
Sheets(1).Select
Worksheets.Add
With Sheets(1)
    .UsedRange.Offset(1).Clear
For Each Ws In Worksheets
  If .Index <> Ws.Index Then Ws.UsedRange.Offset(1).Copy .Cells(.Rows.Count, 1).End(xlUp)(2)
  Application.CutCopyMode = False
Next
    Application.GoTo .Cells(1), True
End With
    Application.ScreenUpdating = True
End Sub

Ty