VBA code need to run twice before adding a new row to table

[bumbum2812]

Hi experts, i'm having a vba code to add a new row to my table, if my first row is blank, it need to run twice to add the second row, if my first row is not blank it only need one time.
Thank you in advance.

Sub AddRow()
    Dim pswStr                                    As String
    pswStr = "@"
    On Error Resume Next
    Application.ScreenUpdating = False
    ActiveSheet.Unprotect Password:=pswStr
    Dim ws                                        As Worksheet    
    Set ws = ActiveSheet
    Dim tbl                                       As ListObject
    
    Set tbl = ws.ListObjects("TB_ReOpen")
    'add a row at the end of the table
    tbl.ListRows.Add
    ActiveSheet.Protect Password:=pswStr
End Sub

 

[Fluff]

How about

    Dim r As Range
    
    Set tbl = ws.ListObjects("TB_ReOpen")
    Set r = tbl.DataBodyRange
    If r Is Nothing Then tbl.ListRows.Add
    'add a row at the end of the table
    tbl.ListRows.Add
    ActiveSheet.Protect Password:=pswStr

 

[bumbum2812]

How about

    Dim r As Range
   
    Set tbl = ws.ListObjects("TB_ReOpen")
    Set r = tbl.DataBodyRange
    If r Is Nothing Then tbl.ListRows.Add
    'add a row at the end of the table
    tbl.ListRows.Add
    ActiveSheet.Protect Password:=pswStr

Thank you Sir, have a good day!

 

[Fluff]

Glad to help & thanks for the feedback.