Advanced Filter Macro Help

Hi,

I am attempting to write a macro that takes data from a worksheet and sorts it into corresponding worksheets. Here is the code that seems to be troublesome:

Sub Multiline_Filter()
Range("A1:B52").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Multiline"), CopyToRange:=Range("Multiline!A1"), Unique:=False
Sheets("Multiline").Select
    Range("A1").Select
End Sub

I would like the code to sort through the data on Sheet4 and then copy the rows in the Multiline sector into the Multiline sheet.

I have attached a workbook to help.

Thanks in advance!