jGilson

Use esta macro:

Function SomarLinha(ByVal Celulas As Range, ByVal nColunas As Integer) As Double
'
' Somar valores nas células de um determinado intervalo, limitado ao número nColunas de células
'
'
' Exemplo:  SomarLinha(A2:P2 ; 12)
'           A2:P2 - intervalo a ser procurado
'           12 - Número de colunas com valores que serão somadas
'           Obs.: ordem de busca P2, O2, N2, M2, ..., A2
'
    On Error GoTo e_SomarLinha
    
    Dim nContador As Integer
    Dim nSoma As Double
    Dim nRow As Integer
    Dim nCol As Integer
    nContador = 0
    nSoma = 0
    nRow = Celulas.Cells.Row
    nCol = Celulas.Cells.Columns.Count
    
    'Verifica se o intervalo é menor que a quantidade de células a serem somadas
    If nColunas > nCol Then
       nColunas = nCol
    End If
    
    'Somar os valores no intervalo
    Do While nCol > 0
        'Verifica se existe valor na célula a ser somado
        If Cells(nRow, nCol) <> "" Then
           nContador = nContador + 1
           nSoma = nSoma + Cells(nRow, nCol)
        End If
        'Verifica se já atingiu o número de células somadas
        If nContador = nColunas Then
           Exit Do
        End If
        nCol = nCol - 1
    Loop
    'Retorna a soma das células encontradas no intervalor
    SomarLinha = nSoma
    
e_SomarLinha_Exit:
    Exit Function
    
e_SomarLinha:
    Resume e_SomarLinha_Exit
End Function