[GeorgeK]

Καλησπέρα Μηνά,

Δοκίμασε το παρακάτω

Function SumPin(MyRng)
Dim c As Range
Dim MySum As Long

For Each c In MyRng
        If c = "pin" Then
            If IsNumeric(c.Offset(0, 1)) Then
                MySum = MySum + c.Offset(0, 1).Value
            End If
        End If
Next c

SumPin = MySum
End Function

Προσθέτει τους αριθμούς που είναι δεξιά από κελιά που γράφουν pin. Αν θέλεις να προσθέτει αυτούς που είναι από κάτω όπως είναι το παράδειγμα σου άλλαξε το c.Offset(0, 1) σε c.Offset(1, 0)

Γιώργος