To copy sheet and paste data with format

To copy sheet and paste data with format

Sub copysheet()

     Sheets("Billing").Activate
     Range("a1:u48").Copy Destination:=Sheets("sheet").Range("a1")
Sheets("sheet").Range("b13:p100").Font.Size = 11
 Sheets("sheet").Range("f13:o100").NumberFormat = "#,##0.00"
  Sheets("sheet").Range("E:E").NumberFormat = "M/D/YY;@"
  Sheets("sheet").rows("13:100").RowHeight = 23
  Application.Calculation = xlCalculationAutomatic
  Sheets("Sheet").Cells.Copy
Sheets("sheet").Cells.PasteSpecial Paste:=xlPasteValues

    Application.CutCopyMode = False
 'Application.Calculation = xlCalculationManual
   End Sub