Auto increment number when posting data from form to workscheet.

Hello everyone,

I am trying to make a workbook that when ppl fill in a form, the data goes to the workscheet. I have 2 textboxes that can be filled in.
The rest of the data thats filled in comes true the vba code of the form. Like the users name, datestamp,...
The first line on the sheet has to be a number. like A2=001 A3=002 ....
So i want to be able to code the number in my code so it takes the higher number +1.
When i try to do this the number stays 1 in every row.
This is what i tryed already:

RowCount = Worksheets("Blad1").Range("A1").CurrentRegion.Rows.Count
With Worksheets("Blad1").Range("A1")
.Offset(RowCount, 1).Value = Me.cmbVerantwoordelijke.Value
.Offset(RowCount, 0).Value = Range("A2").Value + "1"
' .Offset(RowCount, 0).Value = Row("A3") + "1"
'.Offset(RowCount, 0).Value = Row("-1, 0") + 1
' .Offset(RowCount, 1).Value = Application.UserName

The data projection from form in worksheet goes with .Offset (RowCount).

Can someone tell me how to perform this step?
Thx in advance,

Originally Posted by pjwhitfield

I would use

Please Login or Register  to view this content.

to obtain the highest number currently in column A and then increment it

Thx for the answer. I just tested it and like that it doesnt work. But when i try: .Offset(RowCount, 0).Value = WorksheetFunction.Max(Range("A:A")) + 1 it works!

So many thx for giving me a direction mate. I am new @ exel but i do program for android and stuff. I like the possibilities you have with exel ☺.
Gone stay at this site and explorer more and give help if i can -