Put this on top off SubTotalize.
Code:
If Sheets("XFLOW A").Range("B6").CurrentRegion.Rows.Count = 2 Then Exit Sub