Sub PopulateCells()
Worksheets("Load Sheet").Activate
Dim rng As Range, c As Range
Set rng = Range("D2:D500")
For Each c In rng
If InStr(1, c.Value, "PU35") > 0 Then c.Offset(0, -1).Value = "FRITO"
If InStr(1, c.Value, "FA38") > 0 Then c.Offset(0, -1).Value = "FRITO"
If InStr(1, c.Value, "TP35") > 0 Then c.Offset(0, -1).Value = "FRITO"
If InStr(1, c.Value, "PU35") > 0 Then c.Offset(0, -1).Value = "FRITO"
If InStr(1, c.Value, "DT32") > 0 Then c.Offset(0, -1).Value = "FRITO"
If InStr(1, c.Value, "SCNN") > 0 Then c.Offset(0, -1).Value = "SCHNEIDER"
If InStr(1, c.Value, "ODFL") > 0 Then c.Offset(0, -1).Value = "OLD DOMINION"
If InStr(1, c.Value, "LDWY") > 0 Then c.Offset(0, -1).Value = "LANDSTAR"
If InStr(1, c.Value, "HMES") > 0 Then c.Offset(0, -1).Value = "HOLLAND"
If InStr(1, c.Value, "AVRT") > 0 Then c.Offset(0, -1).Value = "AVERITT"
If InStr(1, c.Value, "SAIA") > 0 Then c.Offset(0, -1).Value = "SAIA"
If InStr(1, c.Value, "XXXX") > 0 Then c.Offset(0, -1).Value = "CROWLEY"
If InStr(1, c.Value, "TSGN") > 0 Then c.Offset(0, -1).Value = "LIVE"
If InStr(1, c.Value, "PLCB") > 0 Then c.Offset(0, -1).Value = "LIVE"
If InStr(1, c.Value, "RBTW") > 0 Then c.Offset(0, -1).Value = "LIVE"
If InStr(1, c.Value, "MTLE") > 0 Then c.Offset(0, -1).Value = "LIVE"
If InStr(1, c.Value, "HJBT") > 0 Then c.Offset(0, -1).Value = "JB HUNT"
Sheets("Data").Select
Next
End Sub
Bookmarks