Ola bymauricio,

os dados de um formulário são do tipo texto, converta para o tipo correto usando CInt() , CDate e etc

Private Sub CommandButton1_Click()

    If txt_numero = "" Then
        MsgBox ("preencha o número do animal"), vbInformation, "atenção"
    Else
        Sheets("Rebanho").Select
        Range("a65536").End(xlUp).Select
        ActiveCell.Offset(1, 0) = CInt(txt_fixo)
        ActiveCell.Offset(1, 1) = CInt(txt_numero)
        ActiveCell.Offset(1, 2) = txt_marca
        ActiveCell.Offset(1, 3) = CInt(txt_pesops)
        ActiveCell.Offset(1, 4) = CInt(txt_pesoatual)
        ActiveCell.Offset(1, 5) = CDate(txt_nascimento)
        ActiveCell.Offset(1, 6) = txt_observacao
    End If
End Sub