具有范围和单元格的应用程序定义或对象定义的错误

Question

我尝试使用VBA更新工作表中的单元格＆＃34;分配测试＆＃34;在可变数量的列中，可以在工作表＆＃34;工作表＆＃34;中找到。代码保存在Module1中。

我在.Range行遇到错误。我究竟做错了什么？

Sub resetDoors()
Dim TotalDoorsR As Integer
Dim rr As Integer

TotalDoorsR = ThisWorkbook.Sheets("Worksheet").Range("C14").Value

For rr = 0 To TotalDoorsR
    With ThisWorkbook.Sheets("Allocation TEST")
        .Range(.Cells(4, rr * 2), .Cells(18, rr * 2)).Value = "EMPTY"
    End With
    Next

On Error Resume Next

End Sub