复制和如果功能

Question

我可以知道哪里出了问题吗？我想复制单元格并进行if函数检查，然后再传递到另一个单元格

子Macro1（） ' 'Macro1宏

Range("D2:D3").Select

If Selection.Value = "Batch" Then
 Value = "batch"

ElseIf seletion.Value = "individual" Then
Value = """"

End If

 Range("G2").Select
ActiveSheet.Paste

结束子