Select the first cell in row with frezze panes active

[tigerdel]

I have a sheet that has a Table (PeriodStatement) and has freeze pane active at I3
I have VBA to add a new row:

    Range("AR3").Select
    Selection.End(xlDown).Select
    Selection.ListObject.ListRows.Add AlwaysInsert:=False
    Cells(ActiveWindow.RangeSelection.Row, 1).Select

but I need it to select the first cell in the added row but if freeze panes is active it always selects the cell in Column I
Can it be done that it select the cell in Column A
Many thanks for looking

 

[Herakles]

I can't reproduce your sheet exactly but does this code work?

Dim Ws As Worksheet
Dim objTable As ListObject

    Set Ws = Worksheets("AddRowToTable")
        
    Set objTable = Ws.ListObjects("PeriodStatement")
    
    objTable.ListRows.Add AlwaysInsert:=False
        
    objTable.Range.Cells(1).Offset(objTable.Range.Rows.Count - 1).Select
    
    Set objTable = Nothing