第一次EXCEL编程，双击SHEET2 中的单元格 数据自动填充到 SHEET1 中去

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i As Integer
   
    Sheet_Input.Activate
   
    i = Sheet_Input.UsedRange.CurrentRegion.Rows.Count
   
  
    Sheet_Input.Cells(i + 1, 1).Value = Target.Value

End Sub