Onde esta o codigo:
ActiveCell.Offset(0, 2) = CDbl(txtvalor.Text)Substitua por:
ActiveCell.Offset(0, 2) = txtvalor.Text

Caro Anderson Olegario.
Se eu retirar o CDbl o valor vai para celula com texto e eu quero que vá com numero.

Abraço.

Talvez se colocar .Value
e formatar a coluna como numero.

Antes precisa definir se o campo txtValor poderá ser vazio, ou seja, não seja obrigatório, se não for obrigatório estar preenchido, faça verificação do campo com a condição IF . . Then suprima o lançamento :

If txtvalor <> "" Then
    ActiveCell.Offset(0, 2) = CDbl(txtvalor.Text)
End If

[]s

Permitam-me...

Private Sub CommandButton1_Click()
ActiveCell.Offset(0, 0) = DTP4.Value
ActiveCell.Offset(0, 1) = txtnome.Text
If txtvalor <> "" Then ActiveCell.Offset(0, 2) = CDbl(txtvalor) Else ActiveCell.Offset(0, 2) = ""
Unload Me
End Sub

Perfeitamente.
Obrigado pela ajuda de todos.