apague tudo no botão alterar... e cole o codigo abaixo

on erro goto seuerro
Sheets("CAM").Select 'seleciona a planilha
Columns("C:C").Select
    Dim lin, col
    Selection.Find(What:=CbxNomePC, LookAt:=xlWhole).Activate
    lin = ActiveCell.Row
   


Cells(lin, 1) = Me.CbxSetorPC.Value
    Cells( lin , 2) = Me.txtuserPC.Value
    Cells( lin , 3) = Me.CbxNomePC.Value
    Cells( lin , 4) = Me.TxtEtiqueta.Value
    Cells( lin , 5) = CDate(Me.TxtDtCompra.Text)
    Cells( lin , 6) = Me.CbxModeloPC.Value
    Cells( lin , 7) = Me.TxtConfig.Value
    Cells( lin , 8) = Me.CbxOS.Value
    Cells( lin , 9) = CDate(Me.TxtGarantia.Value)
    Cells( lin , 10) = Me.CbxOffice.Value
    Cells( lin , 11) = Me.TxtTag.Value

Call LimparCampos
Call Carregalista1
exit sub

seuerro:
Msgbox"erro quando não tem os dados na planilha ou foi clicado com as textbox vazia"

Espero ter ajudado!

Obrigado!

Fiz apenas uma alteração no código esta funcionando bem.

Mudei Sheets("CAM").Select para ActiveSheets.select.

Eu coloquei para selecionar a sheet pois se não estiver da erro,se eu fosse vc não faria a alteração.
Depois das declarações este é o erro mais comum que vejo em programa de vba feitos em que eu vi.