Userform new entries

[Desertbird]

Hello,
I'm using the below code for a userform that adds items to a dataset. However it is not adding a new row and instead is replacing the row. I tried putting this together based off of the below youtube video, but I'm not sure what I'm doing wrong and why it's not working. Any advice would be helpful at this point, thank you!

Private Sub CommandButton1_Click()

Dim TargetRow As Integer

TargetRow = Sheets("Engine").Range("B5").Value

Sheets("data").Range("DataStart").Offset(TargetRow, 1).Value = SupName
Sheets("data").Range("DataStart").Offset(TargetRow, 2).Value = AgentName
Sheets("data").Range("DataStart").Offset(TargetRow, 3).Value = Dates
Sheets("data").Range("DataStart").Offset(TargetRow, 4).Value = Reason
Sheets("data").Range("DataStart").Offset(TargetRow, 5).Value = Types
Sheets("data").Range("DataStart").Offset(TargetRow, 6).Value = Method
Sheets("data").Range("DataStart").Offset(TargetRow, 7).Value = Discussion
Sheets("data").Range("DataStart").Offset(TargetRow, 8).Value = Followup

Unload DLOGDASHBOARD

End Sub

 

[Logit]

The following should work as desired. You will not need to use B5 for anything.

Private Sub CommandButton1_Click()

Dim ws As Worksheet
Set ws = ActiveSheet
Dim newRow As Long

newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1

Sheets("data").Range("DataStart").Offset(newRow, 1).Value = SupName
Sheets("data").Range("DataStart").Offset(newRow, 2).Value = AgentName
Sheets("data").Range("DataStart").Offset(newRow, 3).Value = Dates
Sheets("data").Range("DataStart").Offset(newRow, 4).Value = Reason
Sheets("data").Range("DataStart").Offset(newRow, 5).Value = Types
Sheets("data").Range("DataStart").Offset(newRow, 6).Value = Method
Sheets("data").Range("DataStart").Offset(newRow, 7).Value = Discussion
Sheets("data").Range("DataStart").Offset(newRow, 8).Value = Followup

Unload DLOGDASHBOARD

End Sub