Range("K1").Value = WorksheetFunction.Sum(Range("K4:K5000"))