Excel 2010 workaround for 365 FILTER & SORT functions.

Matt_VDW 

Sub area()

Dim i As Long
Dim k As Long
Dim l As Long
Dim ws As Worksheet

l = Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To l
If Cells(i, 1).Value = "Y" Then

k = Worksheets(Cells(i, 9).Value).Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(i, 1), Cells(i, 18)).Copy Destination:=Worksheets(Cells(i, 9).Value).Cells(k + 1, 1)
      
Else
End If

Next i

For Each ws In Worksheets
ws.Range("A:R").Sort key1:=ws.Range("B1"), order1:=xlAscending, Header:=xlYes
Next

End Sub

Maybe with this code. In the attached file you can click the cutton in cell T2 to run the macro. I've entered random numbers in columns C-H and J-R for this example.