Nested InStr VBA Excel

Question

I\'m trying to loop and find some components in a long list of code to past to different cell.

For now I got this

Sub przenoszenie()

Dim wb As Workbook
Di