code to work with newly added table row

[dpaton05]

I have a button that once pressed, adds rows to a table. How do I ensure each newly added row is .69cm height?

Sub Addlines()
    Application.EnableEvents = False
    'ActiveSheet.Unprotect Password:="CSSadmin"
        Dim ws As Worksheet, x As Long, tbl As ListObject, n As Long
       On Error GoTo cancelled:
       n = InputBox("How many lines would you like to add ?")
        Set ws = ActiveSheet
        Set tbl = ws.ListObjects("CSS_quote")
        'add 5 rows
        For x = 1 To n
            'add a row at the end of the table
            tbl.ListRows.Add
           ' ActiveSheet.ListObjects("CSS_quote").DataBodyRange.Columns(12).Value = 1 - 0.1 * ActiveSheet.chkIncrease.Value
            Range("A:A").NumberFormat = "dd/mm/yyyy"
        Next x
    tbl.Range.Cells(tbl.ListRows.Count - n + 2, 1).Select
    'ActiveSheet.Protect Password:="CSSadmin"
    Application.EnableEvents = True
cancelled:
    Exit Sub
End Sub

 

[DanteAmor]

Try this

Sub Addlines_2()
  Dim n As Variant, tbl As ListObject, x As Long
  
  n = Application.InputBox("How many lines would you like to add ?")
  If n = "" Or Not IsNumeric(n) Or n = False Then Exit Sub
  
  Set tbl = ActiveSheet.ListObjects("CSS_quote")
  'ActiveSheet.Unprotect Password:="CSSadmin"
  Application.EnableEvents = False
  For x = 1 To n
    tbl.ListRows.Add
    tbl.ListRows(tbl.ListRows.Count).Range.RowHeight = Application.CentimetersToPoints(0.69)
  Next x
  Range("A:A").NumberFormat = "dd/mm/yyyy"
  tbl.Range.Cells(tbl.ListRows.Count - n + 2, 1).Select
  Application.EnableEvents = True
  'ActiveSheet.Protect Password:="CSSadmin"
End Sub

 

[dpaton05]

Thanks Dante, does the code you provided do everything that my code does?

 

[DanteAmor]

That's right, but I added the code to modify row height.
Try and tell me.