Create table finding last table row with data not in first column

[sspatriots]

Good afternoon,

I have a situation where I've tried both methods below to create a table on a worksheet that starts in row 2 for the headers. The problem is that in the middle of the list of data, there are three rows with no data in the first 10 table cells (or so). When I try the first method below, I get my headers on row 2, but it only captures data for the table to the rows of the table that have blanks in the first 10 table cells (or so). When I use the ".CurrentRegion" method, I can't make it start at row 2 for the headers, however, it does capture every row in the set of data when creating the table.
Any recommendations would be greatly appreciated.

Thanks, SS


Attempt using "Range(.End(xlDown)" method:

    If TableExists(Worksheets("COMM - In Production"), "COMM_In_Production") Then
    
'        MsgBox "Table1 Exists on sheet " & ActiveSheet.Name

    Else
    
'        MsgBox "Table1 Does Not Exist on sheet " & ActiveSheet.Name

        With Worksheets("COMM - In Production").Range("A2")
        .Parent.ListObjects.Add(xlSrcRange, Range(.End(xlDown), .End(xlToRight)), , xlYes).Name = "COMM_In_Production"
        
        
        End With
         
    End If

Attempt using ".CurrentRegion" method:

    If TableExists(Worksheets("COMM - In Production"), "COMM_In_Production") Then
    
'        MsgBox "Table1 Exists on sheet " & ActiveSheet.Name

    Else
    
'        MsgBox "Table1 Does Not Exist on sheet " & ActiveSheet.Name

        With Worksheets("COMM - In Production").Range("A2")
        .Parent.ListObjects.Add(xlSrcRange, Range("A2").CurrentRegion, , xlYes).Name = "COMM_In_Production"
        
        
        End With
         
    End If

 

[NoSparks]

Try offsetting the current region and resizing it to eliminate the blank row from being part of the table

Range("A2").CurrentRegion.Offset(1).Resize(.CurrentRegion.Rows.Count - 1)

 

[sspatriots]

Thank you. I will give this a try this morning.

 

[sspatriots]

Try offsetting the current region and resizing it to eliminate the blank row from being part of the table

Range("A2").CurrentRegion.Offset(1).Resize(.CurrentRegion.Rows.Count - 1)

That did it. Thank you