Thanks again cAntosh,

It appears to be working as hoped. I have integrated all the other features together and appears to work flawlessly.

Last question if I remove 
Sheets(2).Range("K2:K" & LR2).Formula = "=IF(OR(A2="""",D2=""""),0,SUMIFS(Sheet1!I:I,Sheet1!E:E,A2,Sheet1!H:H,D2))"
from the end I shouldn't expect any issues should I? Currently just using to illustrate how the macro is working without flipping back and forth between sheets.