Boa noite.
Realizo a consulta necessária e clico no registro desejado, faço as alterações e quando clico no botão que vai alterar a informação e a mantém na mesma linha, informa erro de execução 13 tipo incompatível..
Realizei uma redução, pois o arquivo original está muito grande. Este é uma copia do original em versão reduzida

Private Sub Alterar_Click()
Dim intlinha As Double
intlinha = Me.Lbl_Linha.Caption
ThisWorkbook.Worksheets("centro_de_custo").Cells(intlinha, 1) = CDbl(Me.Id_CeCusto.Caption)
ThisWorkbook.Worksheets("centro_de_custo").Cells(intlinha, 2) = CStr(Me.Txt_ClassCeCusto.Text)
ThisWorkbook.Worksheets("centro_de_custo").Cells(intlinha, 3) = CStr(Me.Txt_CeCusto.Text)
ThisWorkbook.Worksheets("centro_de_custo").Cells(intlinha, 4) = CStr(Me.Txt_CalcCeCusto.Text)

End Sub