Если instr с несколькими результатами в разных ячейках на основе одного и того же элемента поиска

Question

У меня есть столбец E с другим текстом в ячейках. Я хочу выполнить поиск l oop по ячейкам столбца и вернуть несколько ответов в других столбцах (A, B, C, D, F, G, H .....) на основе текста, найденного в ячейка из столбца E.

Это MyWorkBook

В столбце B 20 означает год, последние два символа ( 02. 02. 04, et c) должны автоматически заполняться на основе даты из ячейки corespondimg из столбца I.

В столбце O должно быть значение из соответствующей ячейки из столбца D + последние 2 символа (в зависимости от того, сколько раз встречается одно и то же значение в столбце D (например, 641973T встречается 3 раза, поэтому в столбце O соответствующие значения должны быть 641973T01, 641973T02, 641973T03 и т. д. с остальными)

Столбец P = Столбец D

Я пытался сделать что-то подобное для первой части, но это не сработало, а в остальном я не знаю, как это сделать.

Sub FR()
Dim Fr          As Workbook
Dim wsFr        As Worksheet
Dim LastRow     As Long
Dim rng         As Range

'Set objects
    Set Fr = ActiveWorkbook
    Set wsFr = Fr.Sheets("Sheet1")
    LastRow = wsFr.Range("E" & wsFr.Rows.Count).End(xlUp).Row
    Set rng = wsFr.Range("E4:E" & LastRow)

For Each cell In rng.Cells
If InStr(4, cell, "Aco Dist") > 0 Then
    cell.Offset(0, -5).Value = "S.C. AD S.R.L."
    cell.Offset(0, -4).Value = "B-dul Barbu 104A"
    cell.Offset(0, -3).Value = "4303"
    cell.Offset(0, -2).Value = "Balti"
    cell.Offset(0, -1).Value = "S.C. ADgfg S.R.L."
    cell.Offset(0, 1).Value = "B-fgfgdul Barbufg 104A"
    cell.Offset(0, 2).Value = "43897603"
    cell.Offset(0, 3).Value = "Baltghgfi"
End If
Next
End sub

и так далее ... Любая помощь будет принята с благодарностью. THX