Hello,
You need to add the row property 
lr = Range("B100").End(xlUp).row