使用工作表（“ xxx”）。Range（Cells（y，x），Cells（y，x））。ClearContents不起作用

Question

我有一个重置功能，它将检查每个单元格是否被占用，然后将其擦除。 但是，我在部分收到错误1004 Worksheets（“ Alarm_Filter”）。Range（Cells（11，x），Cells（y，x））。ClearContents

有人可以告知问题是什么吗？

谢谢。

Sub Reset()

x = 2
y = 11

Do Until (x > 1377)

    Do Until IsEmpty(Worksheets("Alarm_Filter").Cells(y, x))
        If Not IsEmpty(Worksheets("Alarm_Filter").Cells(y, x)) Then
            y = y + 1
        End If

    Loop

    Worksheets("Alarm_Filter").Range(Cells(11, x), Cells(y, x)).ClearContents   'Error 1004

    x = x + 3
Loop
End Sub