Note that you have reverted to fixed ranges going down to row 100. You are not using lLR so you might as well remove the lines:

Dim lLR As Long

and:

lLR = Range("D" & Rows.Count).End(xlUp).Row