Excel VBA - добавить столбец справа и заполнить текстом

Я хочу отредактировать свой существующий код (ниже), который копирует и вставляет таблицы между двумя книгами, чтобы сделать следующее:

1. Добавить новый столбец справа от «vDB» (в конце), который является копией таблицы из wbTarget.
2. Заполните весь столбец текстом «ИТОГО».

3. затем вставьте его в другую книгу под названием "sht1"

   Dim vDB As Variant
   Dim sht1 As Worksheet
   Dim wbTarget As Workbook 
   
   'if sheet name is "TOTAL" then...
   If "TOTAL" = Sheet.Name Then
   
       'copy a given range from the target workbook
       vDB = wbTarget.Sheets(Sheet.Name).Range("b3:i102")
   
       'paste that range under existing data in the master workbook
       sht1.Range("a" & Rows.Count).End(xlUp)(2).Resize(UBound(vDB, 1), UBound(vDB, 2)) = vDB
   
   End If
   

Моя неудачная попытка:

    Dim vDB As Variant
    Dim sht1 As Worksheet
    Dim wbTarget As Workbook 

    If "TOTAL" = Sheet.Name Then

        vDB = wbTarget.Sheets(Sheet.Name).Range("b3:i102")

        With vDB
        .ListColumns.Add
        x = .ListColumns.Count
        .Range(2, x) = "Total"
        End With

        sht1.Range("a" & Rows.Count).End(xlUp)(2).Resize(UBound(vDB, 1), UBound(vDB, 2)) = vDB

    End If

Я получаю сообщение об ошибке «Требуется объект». Какие-либо предложения? Я довольно новичок в vba...