VBA Form message box value will determine last row of column"C".

Hi All,

I am new and need help before all my hair falls out.

My problem I've encountered is almost solved but it is just not working and I can't figure out why.

When the user opens up the Date Form, s/he should be able to fill in what date the product starts and how many item # he needs.

Once run, the sheet will generate dates according to set formula.

The item # will determine how many rows to populate in the sheet.

<TextBox25> is the user's input value of number of items that determine the amount of dates populated.

The item # column is offset by - 4.

I am not sure if the while statement is even needed at all, where the Wend is placed, and where to place i = i - 4

Please let me know if there is any information I'm missing.

Thanks for all the help! Appreciate you all!!!

Sub Shoes()


'


'


'


Dim i As Integer


i = DateForm.TextBox25               'TextBox25 is from the Date Form






While Sheets("Working Table2.0(3)").Cells(4, 3) <> ""










Wend


i = i - 4


GetLastRow = i










' Lot1Date Macro - record


Range("C4").Select


ActiveCell.FormulaR1C1 = "11/1/2022"


Range("C5").Select


ActiveCell.FormulaR1C1 = "=R[-1]C+42"


Range("C6").Select






' Lot2Date Macro - recrod


ActiveCell.FormulaR1C1 = "=R[-1]C+6.5"


Range("C6").Select


Selection.AutoFill Destination:=Range("C6:C" & "i")


Range("C6").Select






End Sub