this 2 only if the previous cell contained 1
Por exemplo, se os dados ocuparem o intervalo A1: A10, contar 2s imediatamente abaixo de 1s, use a fórmula
=COUNTIFS(A2:A10,2,A1:A9,1)
No VBA, use
MsgBox WorksheetFunction.CountIfs(Range("A1:A9"),1,Range("A2:A10"),2)