Got help in this forum last year when some of you came up with this vba:
Dim rng As Range, l As Boolean, M As Boolean, x As Long
For Each rng In Range("L2:L" & Cells(Rows.Count, 5).End(3).Row)
l = rng.Value = "-tom-": M = rng.Offset(, 1).Value = "-tom2-"...