Date format changing

It was working till now*

And this is a part of the entire code, if needed:

'Payment radios and total column
            If radiomaster.value = True Then
                'This way there's no need to add "1" when there's no installments
                If radiomaster = True And TextBox3.Text = "" Then
                    TextBox3.Text = "1"
                End If
                Range("F" & lrTest - 1).value = TextBox3.Text
                Me.TextBox2.value = Replace(Me.TextBox2.value, ".", ",") 'Prevent dot error
                Range("E" & lrTest - 1).value = CCur(TextBox2.value)
                Range("J" & lrTest - 1) = Range("E" & lrTest - 1)
                'Balance
                If lrTest = 23 Then
                    Range("K" & lrTest - 1) = Range("F1")
                    Range("K" & lrTest) = Range("F1")
                Else
                    Range("K" & lrTest - 1) = Range("K" & lrTest - 2).value
                    Range("K" & lrTest) = Range("K" & lrTest - 1).value
                End If
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                aux = TextBox3.value 'aux = 3
                auxinstnumber = aux
                Do While aux <> 0
                    'Activates next sheet
                    Worksheets(ActiveSheet.Index + 1).Select
                    
                    'Count last row
                    lrTest = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
                    
                    'Resize table row from B21 to J on the last row
                    ActiveSheet.ListObjects(2).Resize Range("$B$21:$K$" & lrTest + 1)
    
                    'Count last row
                    lrTest = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
                    
                    If IsEmpty(Range("C" & lrTest - 1)) Then
                        'Date
                        If ActiveSheet.Name = "Fevereiro" Then
                            Range("B" & lrTest - 1).value = "08/02/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        If ActiveSheet.Name = "Março" Then
                            Range("B" & lrTest - 1).value = "08/03/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        If ActiveSheet.Name = "Abril" Then
                            Range("B" & lrTest - 1).value = "08/04/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        If ActiveSheet.Name = "Maio" Then
                            Range("B" & lrTest - 1).value = "08/05/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        If ActiveSheet.Name = "Junho" Then
                            Range("B" & lrTest - 1).value = "08/06/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        If ActiveSheet.Name = "Julho" Then
                            Range("B" & lrTest - 1).value = "08/07/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        If ActiveSheet.Name = "Agosto" Then
                            Range("B" & lrTest - 1).value = "08/08/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        If ActiveSheet.Name = "Setembro" Then
                            Range("B" & lrTest - 1).value = "08/09/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        If ActiveSheet.Name = "Outrobro" Then
                            Range("B" & lrTest - 1).value = "08/10/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        If ActiveSheet.Name = "Novembro" Then
                            Range("B" & lrTest - 1).value = "08/11/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        If ActiveSheet.Name = "Dezembro" Then
                            Range("B" & lrTest - 1).value = "08/12/2016"
                            Range("B" & lrTest - 1).NumberFormat = "dd/mm/yyyy"
                        End If
                        'Description
                        Range("C" & lrTest - 1).value = TextBox1.Text
                        'Category
                        Range("D" & lrTest - 1).value = cmbcategoria.value
                        'Master Installments
                        Range("F" & lrTest - 1).value = "1"
                        'Master
                        Range("E" & lrTest - 1).value = (CCur(TextBox2.value)) / (TextBox3.value)
                        'Total
                        Range("J" & lrTest - 1) = ""
                        'Balance
                        If lrTest = 23 Then
                            Range("K" & lrTest - 1).Formula = "=sum(" & Range("F1").value & ",-E" & lrTest - 1 & ")"
                            Range("K" & lrTest).Formula = "=sum(" & Range("F1").value & ",-E" & lrTest - 1 & ")"
                        Else
                            Range("K" & lrTest - 1).Formula = "=sum(K" & lrTest - 2 & ",-E" & lrTest - 1 & ")"
                            Range("K" & lrTest).Formula = "=sum(K" & lrTest - 2 & ",-E" & lrTest - 1 & ")"
                        End If
                            
                        'Moves information and delete last row in case data doesn't go to the first row
                        If IsEmpty(Range("C22")) Then
                            Range("C22") = Range("C23")
                            With ActiveSheet.ListObjects(2).DataBodyRange
                            .Rows(.Rows.Count - 1).delete
                            End With
                        End If
                    End If
                    
                    'Deletes C23 row in case last row equals 24 and it's empty
                    lrTest = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
                    If lrTest = 24 And IsEmpty(Range("C23")) = True Then
                        With ActiveSheet.ListObjects(2).DataBodyRange
                        .Rows(.Rows.Count).delete
                        End With
                    End If
                
                    aux = aux - 1
                Loop
            End If
            'Activates first sheet
            Worksheets(ActiveSheet.Index - auxinstnumber).Select
            lrTest = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row
            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

This is my workbook, if needed (larger than 1000kb): https://www.dropbox.com/s/i8gsssg89m...2016.xlsm?dl=0