Gurus I need your help, Im having minor error with my formula, i used multipage(Are/CE) with all the Txt boxes inside of the pages 1 and 2. But not including save button. the error im getting is when i click save info to page 1, it works perfectly and transfer info to sheet 2, but if you'll check the sheet 3 Tab, it is copying the "date" that i saved in sheet 2.

Multipages:
-Page1 =Txtbox1 to 5 = Are = output should be saved to Sheet 2
-Page2 = Txtbox6 to 10 = Ce = output should be saved to Sheet 3

error output is like:
Sheet2
-----------------------------------------------------------------------------
Date First Name Last name Age ***
5/9/2014 Raf Sia 30 Male
-----------------------------------------------------------------------------
Sheet3
-----------------------------------------------------------------------------
Date First Name Last name Age ***
5/9/2014
-----------------------------------------------------------------------------


Please help me how to remove the date in sheet3.

thank in advance!


---------CODE---------
Private Sub Commandbutton1_Click()
Dim Are As Long, Ce As Long

'''''''''''''''Are'''''''''''''''
Are = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet2").Cells(Are + 1, "A").Value = TextBox1.Text
Sheets("Sheet2").Cells(Are + 1, "B").Value = TextBox2.Text
Sheets("Sheet2").Cells(Are + 1, "C").Value = TextBox3.Text
Sheets("Sheet2").Cells(Are + 1, "D").Value = TextBox4.Text
Sheets("Sheet2").Cells(Are + 1, "E").Value = TextBox5.Text
'''''''''''''''CE'''''''''''''''
Ce = Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet3").Cells(Ce + 1, "A").Value = TextBox6.Text
Sheets("Sheet3").Cells(Ce + 1, "B").Value = TextBox7.Text
Sheets("Sheet3").Cells(Ce + 1, "C").Value = TextBox8.Text
Sheets("Sheet3").Cells(Ce + 1, "D").Value = TextBox9.Text
Sheets("Sheet3").Cells(Ce + 1, "E").Value = TextBox10.Text

End Sub
Private Sub UserForm_Initialize()
TextBox1.Value = Format(Date, "dd/mm/yyyy") ''''''''''''''''''''''''''''''''''''''''Are DATE
TextBox6.Value = Format(Date, "dd/mm/yyyy") ''''''''''''''''''''''''''''''''''''''CE DATE
End Sub