split zip into 2 columns fill empty cells of 2nd column with 0000

Question

enter code here

Sub macro1()

    Columns("L:L").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftO