循环遍历表中的行，然后将每行复制并转置成单个新表[关闭]

我是VBA编码的新手。

我有一个5行5列的Excel表。我想遍历表的每一行并复制rowcolumn值1,2,4。然后，我想将1,2,4列行单元格值粘贴为B列中新工作表中的新垂直列表（相同列），并在A列中原始表的标题。在由表的行值组成的每个新列表之间，应该有两行的偏移量

Here is an example of my wanted result:

非常感谢您的帮助。