value is pasted twice in column
<p>My problem is with column "A". In this column today's date should be pasted in first blank row. However I get it pasted twice. 1st time when UserForm1 is shown and second time when I click CommandButton1. Everything else works fine (data from UserForm1 is pasted into last row + 1. Issue is only with column "A".
Please find the code below:</p>

<pre><code>Private Sub CommandButton1_Click()


Call UserForm_Initialize

Unload Me
End Sub


Private Sub UserForm_Initialize()

Dim LastRow As Long, ws As Worksheet

'UserForm1.Label9.Caption = ws.Range("A1").Value

Set ws = Sheets("Log")

With ComboBox1
    .AddItem "Quality"
    .AddItem "Time"
    .AddItem "Money"
End With


LastRow = ws.Range("A" &amp; Rows.Count).End(xlUp).Row + 1 'ostatni wiersz


'entry date
    ws.Range("A1").Copy
       Sheets("Log").Range("A" &amp; LastRow).PasteSpecial xlPasteValues

'pasting data from form
'ws.Range("A" &amp; LastRow).Value = Label9.Caption
ws.Range("B" &amp; LastRow).Value = TextBox8.Text
ws.Range("C" &amp; LastRow).Value = TextBox1.Text
ws.Range("D" &amp; LastRow).Value = TextBox2.Text
ws.Range("E" &amp; LastRow).Value = TextBox3.Text
ws.Range("F" &amp; LastRow).Value = TextBox4.Text
ws.Range("G" &amp; LastRow).Value = TextBox5.Text
ws.Range("H" &amp; LastRow).Value = ComboBox1.Text
ws.Range("I" &amp; LastRow).Value = TextBox6.Text
ws.Range("J" &amp; LastRow).Value = TextBox7.Text
End Sub
</code></pre>

<p>Please help.</p>