在if条件下使用do while粘贴数据

Question

我有一张表，上面有名称和数值。我想将它们粘贴到另一个表中，条件是数值不为零。

我能够复制部分内容，但是我对IF的用法不熟悉。下面是我的代码：

Sub Button2_Click()

Table = Sheets("sheet2").Cells(2, 2)

Sheets("sheet2").Range("B5:F13").Delete
Select Case Table
    Case "Fruits"   
        Sheets("sheet1").Range("Fruits").Copy
        Sheets("sheet2").Cells(5, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Select


End Sub