Add this line after the sorting

Code:
.Cells(1).Offset(.UsedRange.Rows.Count).Resize(50).EntireRow.Delete