excluir espaço em branco no subrelatório

Tenho os campos no subrelatório distribuidos da seguinte maneira:
envolvido
qualificação
endereço
fone, cnpj
cpf
ci
mãe
data de nascimento.
No evento formatar usei uma dica do criquio para não aparecer os campos em branco:
Dim C As Control
For Each C In Me.Controls
If C.ControlType = acTextBox Then
If IsNull(C) Or C.Value = "" Then
C.Visible = False
Else
C.Visible = True
End If
End If
Next
Deu certo, porém fica um espaço entre as linhas e gostaria que este espaço fosse excluido ou seja o campo abaixo dele que tivesse dado ocupasse seu lugar.

Bom dia Washigton,poste sua bd,assim será mais facil ajuda-lo.

Cumprimentos.

Estarei postando posteriormente o banco de dados.

segue banco de dados

resolvido