Boa noite
Tenho um formulário cxCadastro que insere dados na tabela Dados e na Paroquianos, contudo, na Paroquianos não está a inserir corretamente, ou seja, não insere em todos os paroquianos, alguém tem uma ideia, agradecido. A parte do código que não funciona é o seguinte: (está no botão incluir do formulário cxCadastro)

    ultimalinha1 = Folha1.Cells(Folha1.Cells.Rows.Count, "a").End(xlUp)
    If txtAno.Text = "2015" Then
    Folha1.Cells(ultimalinha1, 10) = txtPago
    End If
    If txtAno.Text = "2016" Then
    Folha1.Cells(ultimalinha1, 11) = txtPago
    End If
    If txtAno.Text = "2017" Then
    Folha1.Cells(ultimalinha1, 12) = txtPago
    End If

Abraço,
RM