Unificar rutinas

[JoaoM]

Quiero pedir la ayuda de tan dignos expertos para estas 2 rutinas unificarlas en una sola y que en nada afecte su ejecucion

Código:

    'se completa en la col F con la formula
        Range("F22").Select 'Selecciona F
        Selection.AutoFill Destination:=Range("F22:F23"), Type:=xlFillDefault

    'se completa en las col C y D con la formula
        Range("C22:D22").Select 'Selecciona desde C a D
        Selection.AutoFill Destination:=Range("C22:D23"), Type:=xlFillDefault

Probe algo así:

Código:

   Range("C22:D22,F22").Select
        Selection.AutoFill Destination:=Range("C22:D23,F22:F23"), Type:=xlFillDefault

Pero algo hago mal porque no me funciona

Mil gracias por las ayudas que pudieran entrar