Not exactly sure what you were asking for, but here's one way
Option Explicit
Sub BranchRep()
Dim r As Range, r1 As Range
Dim sBranch As String, sRep As String
Set r = ActiveSheet.Cells(1, 3)
Set r = Range(r, r.End(xlDown))
For Each r1 In r.Cells
If Left(r1.Value, 6) = "Branch" Then sBranch = r1.Value
r1.Offset(0, -2).Value = sBranch
Next
For Each r1 In r.Cells
If InStr(r1.Value, ", Rep") > 0 Then sRep = r1.Value
r1.Offset(0, -1).Value = sRep
Next
For Each r1 In r.Cells
If Not IsNumeric(r1.Value) Then r1.Offset(0, -2).Resize(1, 2).ClearContents
Next
End Sub