るしぇ様私の説明不足でご迷惑をおかけしています。
現在は
 Private Sub txt_n_number_KeyDown
        If e.KeyCode = 13 Then
            For n As Integer = 0 To any
                If Me.dgv_a(0, n).Value = Me.txt_n_number.Text Then
                    If IsDBNull(Me.dgv_a(3, n).Value) Then
                        Me.dgv_a(3, n).Value = Now.ToString("t")
                        Me.txt_n_number.Text = ""
                        Exit For
                    Else
                        Me.txt_n_number.Text = ""
                        Exit For
                    End If
                End If
            Next
        End If
 End Sub

上記コードで運用していますが、２行目以降は終了後勝手に並べ替えを行うのですが、１行目は日付けは入力されるのですが並べ替えが行われません。
１行目のみなぜか入力された値が確定していないようです。
何度も申しわけありませんがよろしくお願いいたします。