Quiero obtener datos de celdas sin que se 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 x E2

ana x 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 ó 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.