在Excel中，可以使用宏来将一个新单据信息登记到另一个表格中。以下是一个示例代码，可以实现这个功能：
```
Sub AddNewOrder()
'定义变量
Dim OrderNum As Integer
Dim OrderDate As Date
Dim CustomerName As String
Dim OrderAmount As Double
'获取新单据信息
OrderNum = InputBox("请输入订单号：")
OrderDate = InputBox("请输入订单日期：")
CustomerName = InputBox("请输入客户名称：")
OrderAmount = InputBox("请输入订单金额：")
'将新单据信息添加到另一个表格中
Worksheets("订单记录").Activate
Range("A1").End(xlDown).Offset(1, 0).Value = OrderNum
Range("B1").End(xlDown).Offset(1, 0).Value = OrderDate
Range("C1").End(xlDown).Offset(1, 0).Value = CustomerName
Range("D1").End(xlDown).Offset(1, 0).Value = OrderAmount
'提示信息
MsgBox "新订单已经成功添加到订单记录表中。"
End Sub
```
在这个示例代码中，我们首先定义了四个变量，分别代表订单号、订单日期、客户名称和订单金额。然后，我们使用InputBox函数获取用户输入的新单据信息。接下来，我们将新单据信息添加到名为“订单记录”的表格中。最后，显示一个提示信息，告诉用户新订单已经成功添加到订单记录表中。
使用这个宏的步骤如下：
1. 打开Excel工作簿，并打开要添加新单据信息的单据表格。
2. 按下Alt+F11快捷键，打开VBA编辑器。
3. 在VBA编辑器中，选择“插入”菜单，然后选择“模块”。
4. 在模块中，复制上述示例代码。
5. 返回Excel工作簿，按下Alt+F8快捷键，打开宏对话框。
6. 选择“AddNewOrder”宏，并单击“运行”按钮。
7. 输入新单据信息，然后单击“确定”按钮。
8. 新订单将自动添加到订单记录表中。
注意事项：
1. 在使用宏之前，请务必备份您的Excel文件，以防止数据丢失。
2. 在将新单据添加到另一个表格中时，请确保目标表格已经存在。
3. 在示例代码中，我们假定订单号在第一列，订单日期在第二列，客户名称在第三列，订单金额在第四列。如果您的表格结构不同，请相应地更改代码。
总之，使用宏可以轻松地将一个新单据信息登记到另一个表格中。按照上述步骤进行操作，您可以快速实现这个功能。
