Command button to insert row at intersection in a table

(I would post the workbook, however there is some sensitive info that my supervisor will not let me post) I am working in a bowling alley, and I've created workbooks to help keep track of our inventory. One of the workbooks has a worksheet to keep track of all of our bowling balls. The worksheet has a table with each row as a single bowling ball and columns as the info for that bowling ball (weight [9 lbs- 16 lbs], brand, size, serial number(this would be the "primary key"), date put out on rack). The table is sorted by weight first, then by brand, size, and by serial number (ascending). We are constantly replacing old bowling balls that get cracked, chipped, etc. I would like to have a VBA code for a command button next to each section so that I can insert a blank row at the bottom of that section (ex: clicking on "Add 9 lbs ball" button and it inserts a blank row underneath the last 9 lbs ball). If possible I would like for the button to add the weight into that new row. The most ideal solution is to have a button for each brand (only have 2: Linds or Eagle) "Add Linds 9 lbs Ball" or "Add Eagle 9 lbs Ball". I'm a little familiar with VBA code, however I have not been able to find out how to insert rows through a command button yet. This is for Excel 2010, we have two types of systems with different versions of Excel, but the actual workbook is on Excel 2010 (don't know if that makes a difference)

If I can create a form to insert the info that would be perfect, a textbox for each column (weight, size, brand, serial number, and date) and then insert it into the table where its weight is that would be perfect

The following code is for an OK command button that will insert a row after the last row of the selected weight:

Private Sub cmdOK_Click()
  Dim FindRange As Range
  Dim r As Long
  
  If Not IsNumeric(txtWeight.Value) Then
    MsgBox "Please enter a numberic value for weight"
    Exit Sub
  End If
  

  Set FindRange = ActiveSheet.Columns(1).Find(What:=txtWeight.Value, After:=ActiveSheet.Cells(1, 1), LookAt:=xlWhole, SearchDirection:=xlPrevious)
    
  If Not FindRange Is Nothing Then
    r = FindRange.Rows.Row + 1
  Else
    r = 2
    Do While ActiveSheet.Cells(r, 1).Value < CLng(txtWeight.Value) And ActiveSheet.Cells(r, 1).Value <> vbNullString
      r = r + 1
    Loop
  End If
  ActiveSheet.Rows(r).Insert
  ActiveSheet.Cells(r, 1).Value = txtWeight.Value
  Unload Me
End Sub