Copy rows based on cell value and paste on a new sheet

[snowboarder1]

Dear all
I NEED SOME HELP PLEASE
i want to copy rows to the branch sheet based on the branch name in the sheet PROBLEMS
EXAMPLE if the branch in the sheet PROBLEMS is "OKAIBE" copy the entire row to the sheet "OKAIBE"
can you help me?

 

[JLGWhiz]

Sub t()
Dim c As Range
With Sheets("Problems")
    For Each c In .Range("B4", .Cells(Rows.Count, 2).End(xlUp))
        r = Sheets(c.Value).Cells(Rows.Count, 2).End(xlUp)(2).Row + 1
        c.EntireRow.Copy Sheets(c.Value).Cells(r, 1)
    Next
End With
End Sub