Excel 在一定条件下复制表内的粘贴单元格

我有一个表，我想在其中执行一个代码，将单元格自动复制到表中的其他单元格中。这张表的重要列是J、K、L。使用这张图片，我将帮助解释我要做的事情

条件是用各种颜色加下划线的，我希望代码执行的结果是箭头和方框

• 第J列=表单组件标题
• K列=答案标题
• L列=子类别
• M列=表单组件注释

因此，在第J列下，第一个下划线是“同意-能力”，右边的单元格（在第K列下）是“基本”。我想让它做的是，因为列K下的单元格是“Basic”，那么代码需要查找“Agree-Basic”（在列J上）并将其右侧的单元格（在列K下）复制粘贴到与单元格“Basic”同一行的列L中（在K列下）

这其中的一个问题是，第J列下的顺序并不总是相同的，并且每41行数据都会重复自身。例如：对于范围[J1-J40]，我们将在单元格J3中显示“同意-能力”，但对于范围[J41-81]，它将在单元格J46中显示“同意-能力”

它重复自身的原因是因为每41行它是一个新条目的新人员数据

我已经包括了要求的结果应该是什么样子的图片

我当前的代码是（只需插入L列并将其命名为子类别）：

---

任何帮助都将不胜感激。

Sub CreateNewColumn()
'
' CreateNewColumn Macro
' Creates a new column between Answer Title and Form Components Comments called "Sub Category"
'

'
    Columns("L:L").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("L4").Select
    ActiveCell.FormulaR1C1 = "Sub Category"


End Sub