Para que somente NUMEROS possam ser digitados em um Controle, utilize a Instrução abaixo, só não esqueça de acertar os Nomes e Tipos dos controles que irá utilizar :

Private Sub TxtTerras_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    'permitir que apenas números sejam digitados
    If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0
    End If
End Sub

Não encontrei nenhum Controle (Campo) de DATA em seu Formulário.

Quanto aos Lançamentos para a Aba, como você está utilizando 23 Colunas o ideal é definir constantes para cada Coluna, por exemplo :

'Definimos as Constantes ref a cada Coluna
Const colNomeCliente    As Integer = 1 'Coluna 1 Ref ao Nome do Cliente
Const colVendedor       As Integer = 2 'Coluna 2 Ref ao Nome do Vendedor
Const colAnalista       As Integer = 3 'Coluna 3 Ref ao Nome do Analista

Sub Lancar()
    Dim wsHistorico As Worksheet
    Set wsHistorico = Sheets("Historico")
        'Declaramos a variável
        Dim ULTLINHA As Long
        'Verifica a Ultima Linha Preenchida na Coluna A e somamos mais 1(a linha vazia)
        ULTLINHA = wsHistorico.Range("A65536").End(xlUp).Row + 1
        
        With wsHistorico
            .Cells(ULTLINHA, colNomeCliente).Value = Me.TxtCliente.Text 'Nome Cliente
            .Cells(ULTLINHA, colVendedor).Value = Me.TxtVendedor.Text 'Nome Vendedor
            .Cells(ULTLINHA, colAnalista).Value = Me.CmbAnalista.Text 'Nome Analista
        End With
End Sub

É uma rotina básica, é só acrescentar as Constantes das outras colunas e adiciona-las na Rotina Lancar.

[]s