Will blank cells in the table mess up my macro?

Sub andybason()
   Dim UsdRws As Long, UsdCols As Long
   With Sheets("FilteredBats")
      UsdRws = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious, , , False).Row
      UsdCols = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious, , , False).Column
      .ListObjects.Add(xlSrcRange, .Range(.Cells(1, 1), .Cells(UsdRws, UsdCols)), , xlYes).Name = "FilteredBatsTable"
   End With
End Sub

Function ReturnFilledRegion(wks As Worksheet) As Range

    Dim rngUsedRange As Range
    Dim lLastRow As Long
    Dim lLastCol As Long
    Dim lFirstRow As Long
    Dim lFirstCol As Long
    Dim lIndex As Long
    Dim lCurrRow As Long
    Dim lCurrCol As Long
    Dim sText As String
    
    With wks
        Set rngUsedRange = .UsedRange
        lLastRow = 0
        For lIndex = rngUsedRange.Column To rngUsedRange.Columns.Count + rngUsedRange.Column - 1
            lCurrRow = .Cells(.Rows.Count, lIndex).End(xlUp).Row
            sText = .Cells(lCurrRow, lIndex).Text
            If lFirstCol = 0 And lCurrRow > 0 And Len(sText) > 0 Then lFirstCol = lIndex
            If lCurrRow > lLastRow Then lLastRow = lCurrRow
        Next
        For lIndex = rngUsedRange.Row To rngUsedRange.Rows.Count + rngUsedRange.Row - 1
            lCurrCol = .Cells(lIndex, .Columns.Count).End(xlToLeft).Column
            sText = .Cells(lIndex, lCurrCol).Text
            If lFirstRow = 0 And lCurrCol > 0 And Len(sText) > 0 Then lFirstRow = lIndex
            If lCurrCol > lLastCol Then lLastCol = lCurrCol
        Next
        
        Set ReturnFilledRegion = .Range(.Cells(lFirstRow, lFirstCol), .Cells(lLastRow, lLastCol))
    End With
    
End Function

Function ReturnFilledRectangularRegion(wks As Worksheet) As Range

    Dim lLastRow As Long, lLastCol As Long
    Dim lFirstRow As Long, lFirstCol As Long

   With wks
      lLastRow = .Cells.Find("*", , xlFormulas, , xlByRows, xlPrevious, , , False).Row
      lLastCol = .Cells.Find("*", , xlFormulas, , xlByColumns, xlPrevious, , , False).Column
      lFirstRow = .Cells.Find("*", , xlFormulas, , xlByRows, xlNext, , , False).Row
      lFirstCol = .Cells.Find("*", , xlFormulas, , xlByColumns, xlNext, , , False).Column
      Set ReturnFilledRectangularRegion = .Range(.Cells(lFirstRow, lFirstCol), .Cells(lLastRow, lLastCol))
   End With
   
End Function