Boa noite, a primeira coisa, o motivo do erro, parece que esse formulário frmPT não possui um objeto do tipo TextBox com esse nome TxtCBAltura. Confira os nomes de todos os objetos inclusive do objeto específico que deveria ser esse. Vai ver que vc digitou algo errado no nome...
Uma alternativa tb seria selecionar o ponto que tem logo após a palavra frmPT e apertar ponto no teclado, isso exibirá uma lista com os controles do formulário ja em ordem alfabética, e vc verá que nessa lista não existe o TxtCBAltura.
Bom isso atende sua primeira necessidade....

a segunda necessidade, me corrija se eu tiver errado, só quero ver se entendi mesmo: Vc quer que o código SEMPRE grave somente na linha 2, sobrepondo o que estava ali?
Se for esse o caso, substitua as 3 linhas que contem o do until até o loop, por Linha=2.

Assim, substitua:

Do Until Sheets("BDPT").Cells(linha,1)=""
linha=linha+1
Loop

Esse é o pedaço de código que procura a última linha preenchida e assim encontra a próxima linha vazia a ser preenchida...

Por:

Linha = 2

Agora, na próxima dúvida, por favor cole o código, é melhor do que termos q digitar o código de novo pra mostrar o que precisa mudar
Me/Nos ajude a te ajudar !

Esqueci de mencionar que esse TxtcbAltura é uma check box, eu quero que toda vez que selecionar ela vai a palavra sim para o meu banco de dados!!!

E por isso que tinha que ter postado o arquivo e nao ter tido o trabalho de fazer um print que nao serve pra nada

Obrigado Prudencio...

Cheguei na solução!!!

Sub aberturaPT()

linha = 2

Do Until Sheets("BDPT").Cells(linha, 1) = ""
linha = linha + 1
Loop

Sheets("BDPT").Cells(linha, 1) = frmPT.txtcontrole.Text
Sheets("BDPT").Cells(linha, 2) = frmPT.Txtempresa.Text
Sheets("BDPT").Cells(linha, 3) = frmPT.Txtresponsavel.Text
Sheets("BDPT").Cells(linha, 4) = frmPT.Txtlocal.Text
Sheets("BDPT").Cells(linha, 5) = frmPT.Txtdescricao.Text
Sheets("BDPT").Cells(linha, 8) = frmPT.txtvalidade.Text

If cbAltura = True Then
MsgBox ("Trabalho em Altura")
End If

Sheets("BDPT").Cells(linha, 9) = frmPT.cbAltura

If cbACivil = True Then
MsgBox ("Trabalho Civil")
End If
Sheets("BDPT").Cells(linha, 10) = frmPT.cbCivil

If cbAElétrico = True Then
MsgBox ("Trabalho Elétrico")
End If
Sheets("BDPT").Cells(linha, 11) = frmPT.cbEletrico

If cbMecanico = True Then
MsgBox ("Trabalho Mecanico")
End If
Sheets("BDPT").Cells(linha, 12) = frmPT.cbMecanico

If CbQuente = True Then
MsgBox ("Trabalho a Quente")
End If
Sheets("BDPT").Cells(linha, 13) = frmPT.CbQuente

If CBoutros = True Then
MsgBox ("Descrer o Trabalho")
End If
Sheets("BDPT").Cells(linha, 14) = frmPT.CBoutros

MsgBox ("PT Gerada com Sucesso")
limpaPT

End Sub

Agora vou tentar fazer com que gere o relatorio!!!

Abraços e obrigado

Vc chama uma checkbox de txtQQuer coisa, aí é claro que vai dar problema no entendimento dos outros e no seu....
E digo mais, seu problema era em tentar pegar a propriedade .Text de uma Checkbox que tinha nome de Textbox.... vai vendo...

Cada coisa né...