Como copiar y pegar valores transpuesto pero en diferentes posiciones de una hoja a otra con Macros

Espero puedan ayudarme con mi siguiente caso. Tengo una lista despegable en la hoja 1 de la siguiente forma

C1=Azul

C2=Verde

C3=Amarillo , y asi sucesivamente.

Quiero ejecutar una macro en la hoja 2 y que me pegue esos valores de forma transpuesta pero separados entre ellos cada 2 espacio o columnas ejemplo, al ejecutar me los ponga así

D4=Azul, G4=Verde, J4=Amarillo y asi sucesivamente cada vez que incluyo otro valor en la lista.

Actualmente estoy usando una macro que hace todo lo explicado excepto colocar los valores separados 2 espacio es decir me los coloca así

D4=Azul,E4=Verde;=F4=Amarillo... Esta es la macro que estoy usando

Sheets("Sheet1").Select
Range("dropdown").Select
Selection.Copy
Sheets("sheet2").Select
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=True
ActiveSheet.Range("E4").Select
While ActiveCell.Value <> ""
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Wend
End Sub