请教一下，这段代码，提示我变量定义错误， 我想根据变量赋值的方式，在一系列行(13-37中的单数行）下面插入新的行，请问怎么实现？谢谢

X=13   
Do
     If x <= 37 Then
       [color=FF0000]Rows("x:x").Select[/color]
       Selection.Insert Shift:=xlDown
       x = x + 2
      End If
      
    Loop