Line Count Code

I have code that I developed to input data from an userform into a worksheet line by line. I am using a command add button to input the data, and the only thing that I can't get to work is a line count such as 1, 2, 3, 4, ....

What is some easy code that I can add within the command add sub routine?

Thanks,

James

This is what I have so far...

Private Sub cmdAdd_Click()

Application.ScreenUpdating = False

Dim i As Integer
Dim emptyRow As Long
Dim ws As Worksheet

Set ws = Worksheets("Chassis Report Record")

'position cursor in the correct cell B3
Range("B3").Select
i = 1 'set as the first ID

'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

Do Until ActiveCell.Value = Empty
ActiveCell.Offset(1, 0).Select 'move down 1 row
i = i + 1 'keep a count of the ID for later use
Loop

'Export Data to worksheet - Populate the new data values into the 'Data' worksheet.
ActiveCell.Value = i 'Next ID number
ActiveCell.Offset(0, -1).Value = Range("A3").Value + 1 'set col A - Counts the number of inpsections
ActiveCell.Offset(0, 0).Value = Me.txtChassisTagNo.Text 'set col B - Chassis tag number
ActiveCell.Offset(0, 1).Value = Me.txtDate.Text 'set col C - Date
ActiveCell.Offset(0, 2).Value = Me.txtName.Text 'set col D - name of racer/owner
ActiveCell.Offset(0, 8).Value = Me.txtDriveTime.Text 'set col J - drive time fee charged (usually NA)
ActiveCell.Offset(0, 9).Value = Me.txtMileage.Text 'set col K - mileage charged
ActiveCell.Offset(0, 12).Value = Me.txtCheck.Text 'set col N - Check number - if payment was by check

'resets the data back to initial userform state
txtChassisTagNo.Value = ""
txtDate.Value = "mm/dd/yyyy"
txtName.Value = ""
txtMileage.Value = ""
txtDriveTime.Value = "0"
txtCheck.Value = "------"
txtTagPrice.Value = ""
txtServiceFee.Value = ""
txtAmount.Value = ""
txtTotalAmount.Value = ""
OptionButtonHousecalls.Value = False
OptionButtonEvent.Value = False
OptionButtonSeminar.Value = False
OptionButtonSportsman.Value = False
OptionButtonPro.Value = False
OptionButtonExhibition.Value = False
OptionButtonPass.Value = False
OptionButtonFail.Value = False
OptionButtonCash.Value = False
OptionButtonCheck.Value = False

With txtChassisTagNo
.Text = "A000000"
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With

Application.ScreenUpdating = True
End Sub

This is my code so far. The counter that I am using is in the CommandAdd.