VBA初学者写了个代码，不知道错在哪

994958137

想要把工作表已有内容的最后一行往下复制n行，公式被复制，非公式的内容（B到K列）被清除，代码如下：
Sub 按钮32_Click()
Application.ScreenUpdating = False
Dim i, j As Integer
i = Application.InputBox(Prompt:="How many Rows?", Type:=1)
j = Int(i)
If j < 1 Then
End If
Dim a
a = UsedRange.Rows.Count
Sheet2.UsedRange.Rows.Count.Copy
Sheet2.Rows("a+1:" & a + 1 + j).Insert Shift:=xlDown
Application.CutCopyMode = False
Sheet2.Range("B" & a + 1, "K" & a + 1 + j).ClearContents
End Sub

鱼东东

Sheet2.Rows("a+1:" & a + 1 + j).Insert Shift:=xlDown
这句明显有问题
Rows（）
参数应该是一个数值 而你写的是双引号扩起来的是一个字符串