How can I merge 6 columns??

Deerg65 

Here is new code. It is slow, because it has to do a lot of checking.

The code can easily be modified if you need to merge more than 6 columns.

Sub MergeColumns()
    Dim r As Long
    Dim m As Long
    Dim c As Long
    Application.ScreenUpdating = False
    m = Cells(Rows.Count, 1).End(xlUp).Row
    For r = m To 2 Step -1
        For c = 7 To 3 Step -1
            If Cells(r, c).Value <> "" Then
                Cells(r + 1, 1).Resize(1, 7).Insert Shift:=xlShiftDown
                Cells(r + 1, 1).Value = Cells(r, 1).Value
                Cells(r + 1, 2).Value = Cells(r, c).Value
            End If
        Next c
        If Cells(r, 2).Value = "" Then
            Cells(r, 1).Resize(1, 7).Delete Shift:=xlShiftUp
        End If
    Next r
    Range("C:G").ClearContents
    Application.ScreenUpdating = True
End Sub