create a header row for your data

and then run the macro

Sub separate()
Range("A1").Select
Selection.AutoFilter field:=1, Criteria1:="apple"
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add.Name = "apple"
ActiveSheet.Paste
ActiveSheet.Next.Select
ActiveSheet.ShowAllData
Selection.AutoFilter field:=1, Criteria1:="banana"
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets.Add.Name = "banana"
ActiveSheet.Paste
ActiveSheet.Next.Select
ActiveSheet.ShowAllData
Application.CutCopyMode = False
End Sub

On Feb 4, 3:54*pm, George A. Jululian
wrote:
Hi all, * * * * * * * * * * * *

I have worksheet full of data and I need your help * * * * * * * * * * * * * * *

I Need a macro (VBA) to sort them all and to remove the entire rows for
Apple, Banana and put them in sheet separate * * * * * * * * * * * * * *

Apple * 5 * * * 6 * * * 7 * * * 8
Banana *4 * * * 3 * * * 5 * * * 87
Appel * 5 * * * 6 * * * 7 * * * 8
Appel * 5 * * * 6 * * * 7 * * * 8
Banana *4 * * * 3 * * * 5 * * * 87
Appel * 5 * * * 6 * * * 7 * * * 8
Appel * 5 * * * 6 * * * 7 * * * 8
Orange *11 * * *3 * * * 55 * * *2
Appel * 5 * * * 6 * * * 7 * * * 8
Appel * 5 * * * 6 * * * 7 * * * 8
Orange *11 * * *3 * * * 55 * * *2

Please help * * * * * * * * * * * * * *