主题：只能+ ,不能-

既然只能加不能减，比较当前行与上一行就可以了：

If e.Col.Name = "第一列" AndAlso e.Row.Index > 0 Then
    If Val(e.Text) < e.Table.Rows(e.Row.Index - 1)(e.Col) Then
        e.Cancel = True
    End If
End If

注：不知楼主对相等怎么处理。