在Excel VBA中跨工作表打印数据

Question

我是Excel VBA的新手，以下是我到目前为止所做的以及我需要解决的问题。

我总共有16张纸，其中第一张纸被命名为数据，其余纸张被重新命名为R1，R2，R3，最高为R15。单击数据表中的按钮后，某些数据需要复制到相应的15'R'表。

代码我有以下内容;

Private Sub CommandButton1_Click()
Dim items As Range, item As Range, sht As Long, col As Long, rw As Long

    Set items = Range("A3:A" & Range("A3").End(xlDown).Row)


    sht = 1
    rw = 15

    For Each item In items

        With Worksheets("R" & sht)
            .Range("B9") = item


                For col = 6 To 36
                    If item.Offset(0, col - 1) <> vbNullString Then
                        .Range("B" & rw) = Cells(1, col)
                        .Range("D" & rw) = item.Offset(0, col - 1)
                        rw = rw + 1
                    End If
                Next col

        End With

        sht = sht + 1
        rw = 15
    Next item
End sub

我得到的问题（正如VBA告诉我的那样）是With Worksheets("R" & sht)，而Run-time error:'9'和Subscript out of range。我的知识仅限于解决问题，非常感谢您的帮助。