VBA：从SourceSheet复制行，并使用动态行粘贴到DestSheet

我想从另一个工作簿复制该区域

来源：该区域从J15开始到J列的最后一行。我的语法有问题

目标：粘贴区域与Sourceworkbook中的区域相同，但为K列（K15到J列的最后一行）

问题在于with语句。我不断地发现这个错误：

用于澄清的源代码表图片

更换这条线

.Range(.Cells(15, "J"), .Cells(.Cells(.Rows.Count, "J").End(xlUp).Row, "J")).Copy Destination:=Subwb.Subsht.Range("K15")

与

.Range(.Cells(15, "J"), .Cells(.Cells(.Rows.Count, "J").End(xlUp).Row, "J")).Copy Destination:=Subwb.Subsht.Range("K15")

.Range(.Cells(15, "J"), .Cells(.Cells(.Rows.Count, "J").End(xlUp).Row, "J")).Copy
    Subsht.Range("K15").PasteSpecial xlPasteAll