Try this change:

                .PrintArea = "" & Range("A1", Cells(LR, LC)).Address & ""