Preencha os espaços vazios da macro "numerospares". Esta analisa os valores da linha 1, começando em A1 e cada vez que encontra um número par, escreve na célula abaixo (na linha 2) a letra “P”. Se o valor for ímpar, escreve “I”, como a imagem seguinte sugere.

No final, na célula A3, escreve o número de pares encontrados.

Public Sub numerospares()

  Dim conta As Integer  

  conta = 0

  _________________                            a)

  Do While ActiveCell.value <> ""

  If ActiveCell.value mod 2 = 0 Then

      __________________                      b)

      __________________                      c)

    Else

      ActiveCell.Offset(1,0) = "I"

  End If

  _________________                            d)

  Loop

  Range("A3").value = conta

End Sub