combine columns with text, move over columns with number

If this is not what you wanted, need to see your desired result and the clear explanation.

Sub test()
    With Cells(1).CurrentRegion
        With .Offset(2).Resize(.Rows.Count - 2)
            .Columns(1).Value = Evaluate("index(trim(" & .Columns(1).Address & "&"" ""&if(istext(" & _
            .Columns(2).Address & ")," & .Columns(2).Address & ","""")),,)")
            .Columns(2).SpecialCells(2, 2).ClearContents
            .SpecialCells(4).Delete xlShiftToLeft
        End With
        .Columns.AutoFit
    End With
End Sub