Multiple file merge output incorrect.

Try to change the line

With SourceBoook.Worksheets(1)
        .Cells.UnMerge
         Set Sourcerng = .Range("b1:b27")
End With