Transfer data from adjacent cells to non-adjacent cells

[YasserKhalil]

I have found a simpler code

Sub Demo()
    Dim a As Variant
    
    a = Split(Join(Application.Transpose(Range("H12:H16")), ",,"), ",")
    Range("N12").Resize(UBound(a) + 1).Value = Application.Transpose(a)
End Sub

But I welcome any other solutions