Sub Button3_Click() ' This will remove all DONE items in the named range todo_list ' and re arrange the list0 Dim tmpTodoList(1 To 100), tmpTodoStatus(1 To 100) As String Dim i, cntr, copyThis cntr = 1 i = 1 copyThis = False For Each cell In Range("todo_list") If cntr Mod 2 = 1 Then If cell.Value = "" Or cell.Value = "Not Yet" Then tmpTodoStatus(i) = cell.Value copyThis = True End If Else If copyThis Then tmpTodoList(i) = cell.Value i = i + 1 copyThis = False End If End If cntr = cntr + 1 cell.Value = "" Next cell i = 1 cntr = 1 For Each cell In Range("todo_list") If cntr Mod 2 = 1 Then cell.Value = tmpTodoStatus(i) Else cell.Value = tmpTodoList(i) i = i + 1 End If cntr = cntr + 1 Next cell End Sub