Flet celler og kopier til højre

Sub Test()
Application.ScreenUpdating = False

'Ophæv flettede celler
Range("A1:FD1").UnMerge

'Auto fyld ulige kolonner 1 celle til højre
For Each c In Range("A1:FD1").Cells
    If Not c.Column Mod 2 = 0 Then
        c.Select
        Selection.AutoFill Destination:= _
        Range(Cells(1, c.Column), Cells(1, c.Column + 1)), Type:=xlFillCopy
    End If
Next c
Range("A1").Select

Application.ScreenUpdating = True
End Sub