Veja se atende ao desejado
1) Alterado na rotina cmdOk_Click() a linha: proximoIndice = CadastroGPgest.Cells(Rows.Count, "a").End(xlUp).Row + 1 'CadastroGPgest.UsedRange.Rows.Count + 1
2) Alterado na rotina ObterProximoId() a linha: Set rangeIds = CadastroGPgest.Range(CadastroGPgest.Cells(indiceMinimo, colA), CadastroGPgest.Cells(CadastroGPgest.UsedRange.Rows.Count, colA))

Obs.: No arquivo inibi varias linhas de códigoque estavam gerando erro de depuração.

P E R F E I T O !!!
mto obrigado Reinaldo era issu mesmo que eu precisava.
um forte abraço