Option Explicit
Sub RenameActivesheet()
ActiveSheet.Name = "Input"
End Sub
Sub AddRow1()
With Worksheets("Input")
.Range("A1").Value = "Invoice Date"
.Range("B1").Value = "Invoice Number"
.Range("C1").Value = "Account Name"
.Range("D1").Value = "Item"
.Range("E1").Value = "Qty"
.Range("H1").Value = "Discount Price"
.Range("I1").Value = "line class"
.Range("J1").Value = "class"
.Range("K1").Value = "template"
End With
End Sub
Although if it were me and I was planning to turn it over to someone else, I'd integrate all the macros into a single one that did the entire task instead of running a number of macros