以下是一个示例代码，演示如何比较两个工作簿中的行列表，并使用列表1中缺失的行更新列表2。

Sub UpdateRows()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim rng1 As Range, rng2 As Range, cell As Range
    Dim rowToCopy As Range, copyRange As Range
    
    '打开工作簿1和工作簿2
    Set wb1 = Workbooks.Open("路径\工作簿1.xlsx")
    Set wb2 = Workbooks.Open("路径\工作簿2.xlsx")
    
    '设置工作表1和工作表2
    Set ws1 = wb1.Worksheets("工作表1")
    Set ws2 = wb2.Worksheets("工作表2")
    
    '获取工作表1和工作表2的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    '设置工作表1和工作表2的范围
    Set rng1 = ws1.Range("A2:A" & lastRow1)
    Set rng2 = ws2.Range("A2:A" & lastRow2)
    
    '循环遍历工作表1的每一行
    For Each cell In rng1
        '检查工作表2是否包含当前行
        If Application.WorksheetFunction.CountIf(rng2, cell.Value) = 0 Then
            '如果工作表2中不包含当前行，则将行添加到更新范围
            If rowToCopy Is Nothing Then
                Set rowToCopy = cell.EntireRow
            Else
                Set rowToCopy = Union(rowToCopy, cell.EntireRow)
            End If
        End If
    Next cell
    
    '复制更新范围到工作表2
    If Not rowToCopy Is Nothing Then
        rowToCopy.Copy ws2.Cells(lastRow2 + 1, "A")
    End If
    
    '关闭工作簿1和工作簿2
    wb1.Close SaveChanges:=False
    wb2.Close SaveChanges:=True
End Sub

请将代码中的“路径\工作簿1.xlsx”和“路径\工作簿2.xlsx”替换为实际的工作簿路径和名称。此代码假设工作表1和工作表2在工作簿中的名称分别为“工作表1”和“工作表2”。

此代码将遍历工作表1的每一行，并检查工作表2是否包含相同的行。如果工作表2中不包含某一行，则将该行添加到更新范围。最后，将更新范围中的行复制到工作表2的末尾。

请注意，此代码假设行列表位于工作表的第一列，并且行列表中不包含重复项。如果行列表位于不同的列或包含重复项，需要稍作修改代码。