Why is my userform not inserting the data??

Yesterday the userform and code I have used was recording the data fine, now this morning it is not working and I cannot find out why.

I have attached the file if there is anyone kind enough to take a look at it...because I am at a loss.

It's userform1 and

Private Sub CommandButton1_Click()

Thanks in advance to anyone who takes the time to help

Strud

Hi Strud,
try it

...
Worksheets("Record").Cells(Rows.Count, 5).End(xlUp)(2).Resize(, 4).Value = _
Array(txt_Date.Value, txt_Initials.Value, txt_StockCategory.Value, txt_Notes.Value)
'RowCount = Worksheets("Record").Range("E5").CurrentRegion.Rows.Count
'With Worksheets("Record").Range("E5")
'    .Offset(RowCount, 1).Value = Me.txt_Initials.Value
'    .Offset(RowCount, 0).Value = Me.txt_Date.Value
'    .Offset(RowCount, 2).Value = Me.txt_StockCategory.Value
'    .Offset(RowCount, 3).Value = Me.txt_Notes.Value
'End With
...

Hi Nilem, thanks for the swift response.

Did you test it because I couldn't get it work..?

Of course, it works for me in your example

could you possibly attach it please so I can see if it's just my file then...

note row 301, 302, etc. on a "Record" sheet (just clean these lines)

Originally Posted by AlphaFrog

Make sure you delete any previous-code data from rows 300+ for these solutions to work.

Originally Posted by nilem

note row 301, 302, etc. on a "Record" sheet (just clean these lines)

Thanks guys I didn't see that- that's sorted it.

Cheers again- lifesavers!!