is that this bit?

'Loop through all used cells on column A with a value
For l = 1 To lLastRow