i added "LR = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row" as the last row may change..