my user form keep overwrite the same row every time i enter new date in the form.i want the data to be inserted in the row("A6") so forth and so on. The code i'm using to write date in the sheet.

```
Private Sub Commandok_Click()
Dim RowCount As Long

RowCount = Worksheets("Sheet3").Range("A1").Offset(5).CurrentRegion.Rows.Count
' Write data to worksheet
    With Worksheets("Sheet3").Range("A1")
     .Offset(RowCount, 0).Value = Me.task_done.Value
     .Offset(RowCount, 1).Value = Me.task_name.Value
     .Offset(RowCount, 2).Value = DateValue(Me.task_date.Value)
     .Offset(RowCount, 5).Value = Me.task_note.Value
     .Offset(RowCount, 6).Value = Me.task_additional.Value
End With

End Sub

```

[![Current screenshot ](https://i.stack.imgur.com/g5jEj.jpg)](https://i.stack.imgur.com/g5jEj.jpg)