In data sheet serial number(1) repeats in each row???!!!

[Atiqul Haque]

Dear All,

Into a table of my data sheet when i transfer data, serial number (1) repeats in each rows. Can anyone advice me where is the problem in my code:

Option Explicit
Private Sub CommandButton1_Click()

Dim rng As Range
Set rng = ActiveSheet.ListObjects("Table1").Range
Dim LastRow As Long
Dim erow As Long

erow = [Counta(Test!A:A)] + 1

LastRow = rng.Find(What:="*", _
After:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row

rng.Parent.Cells(LastRow + 1, 1).Value = erow - 1
rng.Parent.Cells(LastRow + 1, 2).Value = txtDate.Value
rng.Parent.Cells(LastRow + 1, 3).Value = txtName.Value
rng.Parent.Cells(LastRow + 1, 4).Value = cmbSex.Value
rng.Parent.Cells(LastRow + 1, 5).Value = [Text(Now(), "DD-MM-YYYY HH:MM:SS")]


'Reset the userform
txtDate.Value = ""
txtName.Value = ""
cmbSex.Value = ""
End Sub

 

[R2ah1ze1l]

Each time it runs erow-1 is the same value.
you need to the 1 to be an index to remove from erow so it too will shift dynamically.

All of your other items are coming from a celldestination.value

HTH