Macro which will filter and paste data to new worksheet

Try:

Sub macro_1()
Dim count, ws1
Application.ScreenUpdating = False
Set ws1 = Activesheet
For count = 2 To ws1.Range("A" & Rows.count).End(xlUp).Row
    On Error GoTo not_found
        ws1.Rows(count).Copy Sheets("" & ws1.Range("A" & count)).Range("A" & Rows.count).End(xlUp).Offset(1, 0)
    On Error GoTo 0
Next count
ThisWorkbook.SaveAs "P:\Test\Finance\manacc\MAN_ACC\Test2\2014\Mth0214\Transactional Reports\Hygiene\" & ws1.name & ".xls"
Application.ScreenUpdating = True
Exit Sub
not_found:
Sheets.Add
ActiveSheet.Name = ws1.Range("A" & count)
Resume
End Sub