Как я могу синхронизировать Force Sells для продуктов Mix и Match любого количества?

Если вы не можете избавиться от пустых строк, вы можете попробовать использовать Find, viz

Sub x()

Dim Index As Long

Index = ActiveSheet.ListObjects("Table1").Range.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1

End Sub