根据单元格值调整范围大小以创建图表

我有正在尝试绘制图形的数据，并且需要一种自动调整图表范围大小的方法，以确保没有零值被绘制图形。本质上，如果我有一个10行乘4列的数据范围，而第5行ID之下的所有内容都为零，那么我想要一个宏，它将选择前5行中的数据，仅用于制作图表并保留其他数据集。

任何想法，将不胜感激

编辑

我试图将零值设置为N / A，因此图表不会绘制它们，但确实如此。我现在正在尝试修改自己制作的循环，以使其沿数据下降，直到达到0值为止，一旦执行，它将选择其上方的所有数据和字段，并将其定义为我的图表数据：

    Dim xlastrow As Integer
    Dim xrow As Integer
    xrow = 15
    Range("b10000").End(xlUp).Select
    xlastrow = ActiveCell.Row
    Range("c10000").End(xlUp).Select


    Do Until Cells(xrow, 2).Value = "0"
      If Cells(xrow, 2).Value <> "0" Then
      Cells(xrow, 2).Select


    End If
    xrow = xrow + 1
    Loop
    ActiveCell.Select
    Selection.offset(, -1).Select

该代码可确定非零值的最后一行在哪里，并选择该行中的第一个单元格（在未来的图表中具有该值的x轴描述的单元格）。我如何完成代码，以便选择顶部和右侧的所有内容并将其定义为我的图表区域？