Sub Dispatch()
Dim WS As Worksheet, i As Integer, j As Integer
For Each WS In Sheets
For i = 2 To Range("B" & Rows.Count).End(3).Row
If Cells(i, 2) = WS.Name Then
WS.Range("A" & Rows.Count).End(3).Rows(2) = Cells(i, 1)
WS.Range("B" & Rows.Count).End(3).Rows(2) = Cells(i, 3)
WS.Range("C" & Rows.Count).End(3).Rows(2) = Cells(i, 4)
End If
Next i
Next
End Sub