Excel VBA-搜索字符串中的文本列，将文本复制到相邻单元格中

我试图简化每周使用的excel工作表，我的vba正在改进，但这个问题完全困扰着我。 我正在尝试创建一个VBA宏，该宏将执行以下操作：

1-在B列中搜索文本“Associate”，然后在找到它时，我想将整个单元格内容复制到相邻的一列中，在数据相关的地方填充它..aghh

基本上，我希望有一个表的行有完整的信息，所以我可以轴等，请看之前和之后的屏幕截图

之前：
之后：

这只是我和3个人的数据的一个小样本，但是我有将近100个人，不能继续手动操作，因为这会让我发疯

任何建议或帮助都将不胜感激，因为我不知道从哪里开始解决这个问题

谢谢

未经测试：

Dim c as range, a

for each c in Range(Range("B1"),cells(rows.count,2).End(xlUp))
    If c.Value like "Associate:*" then 
        a = c.value
    else 
        if c.value<>"" then c.offset(0,-1).value=a
    End If
next c

尺寸c作为范围，a
对于范围内的每个c（范围（“B1”），单元格（行数，2）。结束（xlUp））
如果c.值类似于“Associate:*”，则
a=c值
其他的
如果c.value为“”，则c.offset（0，-1）.value=a
如果结束
下一个c