求助如何用VBA实现自动弹出输入窗口！！！谢谢！！！

一片树叶

1、当单元格A1输入大于0的值时，对应弹出输入窗口，输入文本时自动填充到B1单元格中。类推单元格A25到单元格B25，实现以上功能。
2、当单元格C1输入大于0的值时，对应弹出输入窗口，输入文本时自动填充到D1单元格中。类推单元格C25到单元格D25，实现以上功能。
......
综上类推单元格K 1 到单元格L1  ......  单元格K 25 到单元格L25.

请大侠赐教！谢谢！！ 谢谢！！

爱疯

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 And VBA.IsNumeric(Target) Then
  If Target > 0 Then
    Application.EnableEvents = False
    Cells(Target.Row, Target.Column+1) = InputBox("")
    Application.EnableEvents = True
  End If
  End If
End Sub

18839208898

请问楼上高手，要是选的D2,自动输入e2, 选D3自动输入E3，以此类推，代码怎么修改。