Solved: Problem with cut/paste to last row of sheets

[CatDaddy]

[VBA]Sub WorkDivision_SortOthers()
Dim MB As Workbook
Set MB = Workbooks("MasterWorkbook.xls")
MB.Sheets(1).Activate
For Each cell In Range("F:F")

Select Case cell.Value

Case "AAA":
cell.EntireRow.Cut Destination:=Sheets(8).Cells(Rows.Count, 2).End(xlUp).Row
Case "BBB":
cell.EntireRow.Cut Destination:=Sheets(4).Cells(Rows.Count, 2).End(xlUp).Row
Case "CCC":
cell.EntireRow.Cut Destination:=Sheets(6).Cells(Rows.Count, 2).End(xlUp).Row

Case "DDD":
cell.EntireRow.Cut Destination:=Sheets(2).Cells(Rows.Count, 2).End(xlUp).Row

Case "EEE":
cell.EntireRow.Cut Destination:=Sheets(5).Cells(Rows.Count, 2).End(xlUp).Row

Case "FFF":
cell.EntireRow.Cut Destination:=Sheets(4).Cells(Rows.Count, 2).End(xlUp).Row


End Select
Next cell
End Sub
[/VBA]

I'm trying to get this macro to go through the first worksheets and send entire rows to the end of different worksheets based on the select case, but it doesnt send anything...something wrong with cut