Sub StartNewInvoice()
invno = Range("C3")
Range("B10, C4:D4, B19:F35").ClearContents
MsgBox "Your next invoice number is " & invno + 1
Range("C3") = invno + 1
Range("B10").Select
ThisWorkbook.Save
End Sub
Sub RecordofInvoice()
invno = Range("C3")
custname = Range("B10")
amt = Range("I41")
dt_issue = Range("C5")
term = Range("C6")
Set nextrec = Sheet3.Range("A1048576").End(xlUp).Offset(1, 0)
nextrec = invno
nextrec.Offset(0, 1) = custname
nextrec.Offset(0, 2) = amt
nextrec.Offset(0, 3) = dt_issue
nextrec.Offset(0, 4) = dt_issue + term
nextrec.Offset(0, 9) = Range("I40")
Bookmarks