Como obtener los datos de las celdas sin que se me repitan los datos de las celdas combinadas.

Hola, tengo un código que ya me obtiene los datos que necesito, pero me cuenta como doble los datos de la celdas combinadas...
esto es por ejemplo lo que tengo en las celdas
pepe por E2
ana por N3
Pedro por E1-N2
son reservas...

Function pasajerosNacionales(rng As Range)
Dim combinados As String
Dim temp As String
Dim temp1 As String
For Each celda In rng
    If celda.Address = celda.MergeArea.Cells(1, 1).Address Then _
        combinados = Right(celda, 5)
        temp = Left(combinados, 2)
        temp1 = Right(combinados, 2)
        If Left(temp, 1) = "N" Then
            a = CInt(Right(temp, 1))
            n = n + a
        Else
        If Left(temp1, 1) = "N" Then
            a = CInt(Right(temp1, 1))
            n = n + a
        End If
Next
pasajerosNacionales = n
End Function

en las celdas lo único que me importa son los últimos 2 o 5 caracteres que están colocados según esta clave:
extranjeros ----- E2
grupos ----------- G1
nacionales ------ N4
los
números son la cantidad de pasajeros de ese tipo, porque los 5, pues
porque en una reserva pueden haber dos tipos de pasajeros o sea por
ejemplo "E2-N1" .
Mi problema es que me esta contando los
pasajeros que están en celdas combinadas, o sea si mi reserva dice "juan
por E2", y lo tengo en una reserva de tres celdas combinadas que serian
tres días, me lo cuenta como que son 6 personas, y quiero que se de
cuenta que solo son dos...
Espero haber sido lo mas explicito posible, gracias.