将不相邻的单元格转置到下一个空行

Question

我有一个当前正在使用的库存表，需要对其进行简化以进行数据传输。我的想法是创建一个新的工作表，以尽量减少它对使用此电子表格的其他人的影响。我试图将不相邻的单元格从一个工作表转置到下一个可用行中的另一个工作表。作为 VBA 的新手，我可能已经咬牙切齿了。我能够通过一些几乎有效的搜索找到下面的代码，我修改了它以粘贴到下一个打开的行中。我似乎无法解决的问题是它只转置了我的 copyRange 中列出的最后一个单元格。我附上了我的源和目标工作表的一些屏幕截图。应该注意的是，代码仅设置了 9 个电池的小测试范围。实际上，总库存转移将是 125 个单元格，但我可以从测试大小推断。

来源：

目的地：

public byte[] getS3Object(String key) {
        AmazonS3 s3Client = getClientS3();
        String bucketName = "mybucket";
        S3Object object = s3Client.getObject(bucketName, "models/one.sldprt");
        S3Object object2 = s3Client.getObject(bucketName, "models/two.sldprt");
        S3Object object3 = s3Client.getObject(bucketName, "models/three.sldprt");
    try {
        return IOUtils.toByteArray(object.getObjectContent());
    } catch (IOException e) {
        e.printStackTrace();
    }
}

任何帮助都会很棒。