Как добавить данные столбца в диапазон, используя последний активный столбец?(VBA Excel)

Question

Снимок экрана с моей электронной таблицей Excel

Когда я нажимаю кнопку, она должна добавить все столбцы в строке 2.

Это мой код:

Sub Button1_Click()
    Range("b2").Select
    ActiveCell.End(xlToRight).Select
    Range("b2").Select
    ActiveCell.End(xlToRight).Select
    Dim vStartRow As Integer
    vStartRow = 2
    Dim vStartCol As Integer
    vStartCol = 2
    Dim vEndCol As Integer
    vEndCol = ActiveCell.Column
    Dim ColumnLetter As String
    ColumnLetter = Split(Cells(1, vEndCol).Address, "$")(1)
    Dim MyCol As String
    MyCol = ColumnLetter
    MsgBox (ColumnLetter)
    Cells(vEndCol + 2, 10).Formula = "=sum(" & vStartCol & vStartRow & ":"" & MyCol & "" vStartRow & "")"
    Cells(vEndCol + 2, 10).Select
End Sub

Я получаю ошибку "Ошибка приложения или объектная ошибка". Может кто-нибудь исправить эту ошибку, спасибо заранее!