Macro do Excel - copia dados de várias células incluindo seu cabeçalho para uma célula

Question

Eu não tenho conhecimento sobre Macro. Existe um tipo de código que eu posso usar para copiar dados de várias células, incluindo seu cabeçalho para uma célula. Parece assim:

Esta é a tabela de origem:

Eestadeveserasaída:

    

Answer 1

Veja o código do VBA:

Sub copy_range_to_cell()
  Set rng = Range("A3:C4")
  For Each Column In rng.Columns
    For Each cell In Column.Cells
      Range("E4").Value = Range("E4").Value & cell.Text & Chr(10)
    Next cell
    Range("E4").Value = Range("E4").Value & Chr(10)
  Next Column
End Sub

Antes:

Depois: