How to find last row with a value in column A with blanks and fill

Hello all,

I'm back with another issue that I'm racking my brain to resolve. In the attached workbook I have a userform for data entry. Everything works on it with the exception of 1 line of code.

The following line of code (within the 'Transfer Info if date code) does not give the desired result...

Please Login or Register  to view this content.

What I was expecting is that the line of code would find the last row with a value in column A and add 1 to it and place that value in the last blank row.

Sheet1 is the result I am getting, Sheet2 is the result I was expecting.
Sheet1 rows 6, 8 and 9 show a value of 1, 1 and 2 respectively. What I was expecting for rows 6, 8 and 9 is a value of 3, 4 and 5 respectively (Sheet3)
Note* The yellow highlighting in the rows is just for the sample, it will not be like that for the final workbook.

I've tried several things to get it to work, but nothing has worked for me. I'm pretty sure the issue is because the rows have "fill" in them.
SB Workbook for Excel Forum.xlsm

How about this ?

Please Login or Register  to view this content.

Props to you bakerman2!!! (Did not mean for that to rhyme)
That worked like a charm. I should have posted this question hours ago!
I'm going to have to find something that stumps you a bit.
Speaking of...did you ever see question # 3 of 3?

Glad to help (again) and thanks for rep+.

Yes I did but saw that Marvin already jumped in so I kinda lost track of it. How are you getting along with it ?

You're welcome. I can't believe the solution was so easy. Nothing I looked up online was that simple at all.

He provided an alternate solution to what I wanted, which will work, but I'd like to find the original solution I wanted so the form doesn't have to keep opening over an over again.

@nilem - I will give your code a try and let you know how it goes.

@nilem - Thank you for your code. It seems to work as I wanted and is much cleaner/shorter than the code I had.

@Nilem - After the end user tested the workbook, they decided they wanted to add another column (J) to be the column that shows textbox4's value by 350. I changes the resize from 7 to 8 and added textbox7 into the array and the Val(TextBox4.Value) * 350 to the end of the array but it doesn't work. I know I'm missing something simple, just don['t know what it is.
Here is the code with the changes I made -

Please Login or Register  to view this content.

Sorry, I had a "dit-da-duh: moment. I added column J as I said earlier, but the info was going to column H, which was hidden and I didn't notice it until just now.