本人刚刚开始学习VBA，自己编写了一个很短的复制公式的小代码，但是运行时总是提示“编辑错误 要求对象”，不知道是哪里出现了问题，求高手帮忙解答，多谢多谢~
Sub 复制公式()
Dim a As Integer
    Set a = Sheet4.Range(A1).Value
    Sheet4.Range(cell(a, "B"), cell(a, "H")).Select
    Selection.FillDown
End Sub