Loop to two columns and Concatenate values

[LalitPandey87]

Change this line

    Const strOutPutCell             As String = "H1" 'Change accordingly

with this one

    Const strOutPutCell             As String = "A1" 'Change accordingly