Excel VBA宏'；那么他在用If吗

我没有编程经验，但我录制了一个宏，它执行以下操作：

    Range("B8").Select
    Selection.Copy
    Sheets("DataRaw").Select
    Range("Table3[[#Headers],[Datum]]").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Transactie").Select
    Range("C8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("DataRaw").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Transactie").Select
    Range("D8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("DataRaw").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    ActiveCell.Offset(0, 2).Range("A1").Select
    Sheets("Transactie").Select
    Range("D8").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C8").Select
    Selection.ClearContents
    Range("B8").Select
    Selection.ClearContents

激活时，它将值从选定单元格移动到另一张图纸中的表格中。我想要做的是能够拥有多个不同类别的表，并让代码识别我的输入属于哪些类别，以便它可以将值移动到其各自的表中

因此，当我输入一个水果名称时，所有的值都会进入水果表，当我有一个蔬菜名称时，所有的值都会进入蔬菜表。我猜我需要使用if，then语句，但我不知道如何使用：S

---

希望我的问题清楚。非常感谢

如果Then和VBA在提出问题时显得过于复杂，建议查看数据透视表。这里有两个链接可以帮助您开始：

Excel 2010数据透视表和数据透视图要点-适用于假人

创建或删除数据透视表或数据透视图报表-Excel-Office.com

---

询问代码的问题必须表明对所解决问题的最低理解。包括尝试过的解决方案、它们不起作用的原因以及预期结果。另请参见：堆栈溢出问题检查列表查看数据透视表。您可以使用主数据，然后在不同的工作表上创建一个透视表，以显示您希望该数据的每个关系。您可以有许多不同的表指向相同的数据。裸链接不是答案：）这最好是一个注释，就像上面@PortlandRunner所做的那样