Check point in polygon

Dear Ibendlin,

This is an example dataset.

i have point and polygon data  when i use the code 

let
// Load the point data
Source_Point = Excel.CurrentWorkbook(){[Name="Point"]}[Content],

// Load the polygon data
Source_Polygon = Excel.CurrentWorkbook(){[Name="Polygon"]}[Content],
polygonTable = Table.SelectColumns(Source_Polygon, {"PolygonName", "VertexX", "VertexY"}),

// Extract X and Y coordinates into lists
polyX = List.Transform(polygonTable[VertexX], each _),
polyY = List.Transform(polygonTable[VertexY], each _),

// Function to check if a point is inside any polygon
IsInsideAnyPolygon = (pointX, pointY) =>
List.AnyTrue(
List.Transform(
{0..List.Count(polyX)-1},
each
let
currentX = polyX{_},
currentY = polyY{_},
nextX = if _ = List.Count(polyX)-1 then List.First(polyX) else polyX{_+1},
nextY = if _ = List.Count(polyY)-1 then List.First(polyY) else polyY{_+1},
oddNodes = (currentY < pointY and nextY >= pointY or nextY < pointY and currentY >= pointY) and (currentX <= pointX or nextX <= pointX),
isInside = oddNodes
in
isInside
)
),

// Add a new column to the point data to check if it's inside any polygon
ResultTable = Table.AddColumn(
Source_Point,
"IsInsideAnyPolygon",
each IsInsideAnyPolygon([PointX], [PointY])
),

// If the point is inside any polygon, show the actual PolygonName; otherwise, show "OutsidePolygon"
Result = Table.AddColumn(
ResultTable,
"PolygonName",
each if [IsInsideAnyPolygon] then List.FirstN(Table.Column(polygonTable, "PolygonName"), 1) else {"OutsidePolygon"}
),
FinalResult = Table.SelectColumns(Result, {"PointX", "PointY", "IsInsideAnyPolygon", "PolygonName"}),
#"Extracted Values" = Table.TransformColumns(FinalResult, {"PolygonName", each Text.Combine(List.Transform(_, Text.From)), type text})
in
#"Extracted Values"

I have point and polygon data. When I use the code, the result shows that "IsInsideAnyPolygon" is correct, but in the polygon name, only "Polygon1" is displayed. In fact, for points 6,6 and 8,8, they should be inside "Polygon2."