Sub Macro1()
Dim sh As Worksheet
Dim Wk As Workbook
Dim shname As String
Dim lr As Long
Set Wk = ActiveWorkbook
shname = "INV"
For Each sh In Wk.Sheets
If sh.Name <> shname Then
Columns("A:A").ColumnWidth = 4.57
Columns("B:B").ColumnWidth = 18.29
Columns("C:C").ColumnWidth = 7
Columns("D
").ColumnWidth = 12.29
Columns("D").EntireColumn.AutoFit
Columns("E:E").ColumnWidth = 13.29
Columns("E:E").EntireColumn.AutoFit
Columns("F:F").ColumnWidth = 12
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").ColumnWidth = 12.14
Columns("G:G").EntireColumn.AutoFit
Columns("G:G").ColumnWidth = 13.14
Columns("H:H").ColumnWidth = 11.86
Columns("H:H").EntireColumn.AutoFit
Columns("I:I").ColumnWidth = 15.86
Columns("J:J").ColumnWidth = 16.71
Columns("J:J").EntireColumn.AutoFit
Columns("K:K").EntireColumn.AutoFit
Columns("L:L").EntireColumn.AutoFit
lr = Cells(Rows.Count, 1).End(xlUp).row + 1
range("C" & lr).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)"
range("E" & lr).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)"
range("G" & lr).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)"
range("I" & lr).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)"
range("J" & lr).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)"
range("K" & lr).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)"
range("I9").Select
End If
Next sh
End Sub
