VBA для расширения таблицы 2 на основе таблицы записей 1 - приводит к несовместимости формулы

Question

Я использую VBA для расширения таблицы, таким образом, это привело к некоторой несовместимой формуле в столбце таблицы 2, пропустив диапазон в таблице, например ROW($S$10:S11), следующая ячейка в том же столбце пропускает ячейку "S12" & ROW($S$10:S13), которая может бытьисправить с помощью аудита ошибок и восстановить вычисляемый столбец, но мне бы хотелось, чтобы он автоматически исправлял эту ошибку с помощью VBA.

    Dim rng As Range
    Dim tbl1 As ListObject
    Dim tbl2 As ListObject
    Dim bError As Byte   

    Set tbl1 = Sheets("Sheet1").ListObjects("table1")
    Set tbl2 = Sheets("Sheet2").ListObjects("table2")

    If tbl1.Range.Rows.Count <> tbl2.Range.Rows.Count Then
        Set rng = Sheets("Sheet2").Range("table2[#All]").Resize(tbl1.Range.Rows.Count)    
        tbl2.Resize rng
    End If
End Sub