How to fix a messed Excel sheet and make a proper format?

[jolivanes]

Sub Maybe()
Dim netw, netwName
netw = Range("C14:C" & Cells(Rows.Count, 3).End(xlUp).Row).Value
netwName = Range("E14:E" & Cells(Rows.Count, 5).End(xlUp).Row).Value
    Range("C14").Resize(UBound(netwName)).Value = netwName
    Range("E14").Resize(UBound(netw)).Value = netw
End Sub

Or you can just insert cells, copy them into the right place and delete the non needed cells.