Esta pergunta já tem uma resposta aqui:

Estou tentando algo desde alguns dias e estou realmente perdido com isso. Alguém poderia me ajudar sobre isso, por favor.

Gostaria de concatenar colunas no Excel da primeira coluna até a última coluna não vazia e adicionar uma vírgula entre cada coluna.

Depois disso, eu gostaria de aplicar o loop da primeira linha até a última linha não vazia.

Consigo fazê-lo com um número conhecido de colunas (adiciono o código depois), mas não quando o número de colunas é desconhecido.

Range("H2").Select
ActiveCell.FormulaR1C1 = _
    "=CONCATENATE(RC[-7],"","",RC[-6],"","",RC[-5],"","",RC[-4],"","",RC[-3],"","",RC[-2])"
Range("H2").Select
Selection.AutoFill Destination:=Range("H2:H" & Range("A2").End(xlDown).Row), Type:=xlFillDefault