'Make Sheet1 active
Plan2.Activate

Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.count, "A").End(xlUp).Row
    End With

Dim count As Integer
count = 5

'Coluna que vai receber a soma A=1, B=2, C=3...
Dim colunaSoma As Integer
colunaSoma = 9 'I=9

While count <= LastRow
    'Soma todas as contas e coloca na Coluna = colunaSoma
    Cells(count, colunaSoma).Value = Cells(count, 2).Value + Cells(count, 3).Value + Cells(count, 4).Value + Cells(count, 5).Value + Cells(count, 6).Value + Cells(count, 7).Value + Cells(count, 8).Value

    'Contador que pula linha por linha
    count = count + 1
Wend