根据单元格值条件和命名表复制模板工作表

Question

我有D16:D40范围内的公司列表，这些公司属于两个报告类别：季度或半年度。

范围J16:J40表明它们是按季度还是半年度报告。

我想根据范围J16:J40中的规定值复制模板QTR或SEMI。我怎样才能改进下面的公式，这样才能起作用？

下面的宏显示应用程序定义/对象定义错误。

Sub CopyQTRSheetandInsert()
'
' CopyQTRSheetandInsert Macro
'

Dim rcell As Range
Dim rcell2 As Range
Dim Background As Worksheet
Set Background = ActiveSheet

For Each rcell In Range("D16:D49")
    For Each rcell2 In Range("J16:J49")

        If rcell2.Value = "QTR" Then

            Sheets("QTR").Copy After:=Sheets("SEMI")
            Sheets("QTR (2)").Name = rcell.Value

        End If
    Next rcell2
Next rcell

End Sub