Loop macro to next column

[ffionnah]

Hi All,
I am trying to create a macro to paste a concatenation formula in Column E for the range of Columns G3 to BBI98. The current code I have is looping, but it is not continuously pasting this concatenation formula down through column E.

Is there a way for the concatenation formula to paste the info for the first group G3 to G98 in E3 to E98 and then loop back to H3 to H98 and paste this concatenation formula in E99 to E198... etc?

Thank you!

Sub ConcTrial()
Dim LastRowColumnE As Long
Dim RL As Long, Cl As Integer
RL = Cells(3, 7)






LastRowColumnE = Cells(Rows.Count, 7).End(xlUp).Row
For i = 7 To 1407


x = 3
If Cells(x, i) <> 1 Then
   Range("E3:E" & LastRowColumnE).FormulaR1C1 = "=IF(COUNTBLANK(RC[2])=1,"""",(CONCAT(R1C7,RC[2])))"
End If


 Next i




End Sub

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...g-cell-values-countblank-1-a.html#post5216550

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).