If the data is in column A, you can try thislrow = Cells(Rows.Count, 1).End(xlUp).Rowans = Application.WorksheetFunction.Sum(Cells(lrow - 20 + 1, 1).Resize(20, 1))Debug.Print ans