vba - Excel VBA マクロの If then の使用

Question

プログラミングの経験はありませんが、次のことを行うマクロを記録しました。

    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

私の質問が明確であることを願っています。どうもありがとう！