VBAinput框 – EXCEL要求在电子表格打开时进行消除

我正在一个Excel电子表格（路由簿）， 在这里input图像说明见附。 我需要excel通过电子表格打开时的popup式input框请求信息，一旦所有的信息都被填入，那么a2就变得可用（这可以是b2，c2，d2，e2，f2，g2，h2）通过公式完成），然后应该继续下一行。 因此，基本上每当用户打开电子表格时，excel都会通过popup窗口请求信息，一旦这些信息填入订单号码变为可用，循环再次开始新行。 像下面的东西在这里input图像说明

然后一旦完成，就会自动popup另一个，直到所有信息都被捕获并且订单号码变为可用。 我无法让popup窗口一个接一个地跟着直到最后

Sub inputbox1() Dim adddata As Range Dim addinput As String Set adddata = Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) addinput = InputBox("Enter date here", "Date") If addinput = Empty Then Exit Sub adddata.Value = addinput End Sub Sub inputbox2() Dim adddata As Range Dim addinput As String Set adddata = Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) addinput = InputBox("Enter Transporter here", "Transporter") If addinput = Empty Then Exit Sub adddata.Value = addinput End Sub