накопление+отсеивание

[xxxxx0111]

Задача следующая:
1 лист - накопительная таблица
2 лист - лист с новой таблицей
столбцы у таблиц одинаковые
необходим макрос (желательно через кнопку) который будет новую таблицу присоединять к накопительной с конца, причём производя проверку по столбцу № ссудного счета ** (т.е. если номера повторяются, то по 2 разу значения в накопительную таблицу заносить не надо)

[Maxx]

Вот сам код:

Sub upgradeTable()
Application.ScreenUpdating = False
    For i = 2 To Sheets(2).Cells(Cells(Rows.Count, 3).End(xlUp).Row, 3).Row
        Sheets(2).Select: Cells(1, 1).Select: sudShet = Cells(i, 3).Value
        Sheets(1).Select: Range([C2], Cells(Cells(Rows.Count, 3).End(xlUp).Row, 3)).Select
        
        On Error Resume Next
        Selection.Find(sudShet).Activate
        
        If ActiveCell.Value = sudShet Then GoTo 1
            
        Sheets(2).Select: Range(Cells(i, 1), Cells(i, 4)).Copy
        Sheets(1).Select: Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1).Offset(1).Select
            ActiveSheet.Paste: Application.CutCopyMode = False
1
    Next i
Application.ScreenUpdating = True
End Sub

Посмотрите вложение:

[xxxxx0111]

Maxx
Спасибо!

[xxxxx0111]

Ещё небольшой вопрос: можно ли организовать автоматический счёт самого первого столбца №, с учётом добавленных строк?

[Maxx]

Сообщение от xxxxx0111

Ещё небольшой вопрос: можно ли организовать автоматический счёт самого первого столбца №, с учётом добавленных строк?

Вбейте в любую ячеку листа формулу =СЧЁТ(A:A), и в ней будет отражаться количество заполненных ячеек с цифрами в столбце A.