Well done! The only change I made was to the line
-- r.Offset(0, 3) = "cli" <-instead of left()

But you got it to work and I thank you.