Hi Miche,
In order to write a macro you have to explain exactly what you want to
to do. This might get you started. You might include & " " &
in your concatenation or & CHR(10) &
Sub combine_evenrow_up()
Dim r As Long, i As Long, c As Long
Dim cRow As Long
cRow = ActiveCell.Row
For r = cRow To 2 Step -2
For c = 1 To 20 'rough coding 20006-04-07 d.mcr
Cells(r - 1, c) = Trim(Cells(r - 1, c)) & Trim(Cells(r, c))
Next c
Cells(r, 1).EntireRow.Delete
Next r
End Sub
Run this on test data it is going to go up from the row you have
your active cell on and work on the first 20 columns then delete the
rows that got copied upward. Intended to run up from an even numbered
row if you have no headers.
Don't know if you are familiar with macros or not, you say you ran a macro
report, which is ambiguous.