In order to put each Hyperlink in row 1, column C et Seq., modify these lines:
Cells(i, 2) = str_text
Cells(i, 3) = link.href
and change them to this one line:
Cells(1, i+2) = link.href
The statement Cells(r, c)
indicates the row and column position to be assigned, so while the code initially was putting each result & link on a new line, in columns B and C (Cells(i, 2)
would be column B, etc.) you just need to modify that statement to put the data where you want it.