当Excel表格下面有宽度不同的其他表格时，使用VBA向Excel表格添加新行

可以通过以下步骤实现：

1. 打开Excel文件并进入VBA编辑器。可以通过按下ALT + F11快捷键或从开发工具栏中选择“Visual Basic”选项来进入VBA编辑器。
2. 在VBA编辑器中，找到你想要添加新行的工作表。可以在左侧的“项目资源管理器”窗口中选择相应的工作表。
3. 在工作表的VBA模块中，编写以下代码来添加新行：

Sub AddNewRow()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你的工作表名称
    
    '获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    '在最后一行的下方插入新行
    ws.Rows(lastRow + 1).Insert Shift:=xlDown
End Sub

1. 替换代码中的“Sheet1”为你想要添加新行的工作表名称。
2. 运行宏。可以通过按下F5键或从VBA编辑器的工具栏中选择“运行”选项来运行宏。

这样，VBA代码将在指定工作表的最后一行下方插入一行新行。请注意，这个代码示例假设你要在第一列（列A）插入新行。如果你想要在其他列插入新行，需要相应地修改代码中的列号。

关于VBA和Excel的更多信息，你可以参考腾讯云的Excel相关产品和产品介绍链接地址：Excel相关产品和产品介绍