Wie kann ich diesen VBA-Code mit ausgewählten Spalten arbeiten?

Question

Derzeit versuche ich, die Min-, Max-, Durchschnitts- und Standardabweichung für eine Reihe von Zahlen zu erhalten. Ich möchte in der Lage sein, beliebige Spalten auszuwählen und diese Daten zu finden. Auch wenn ich die Auswahl getrennt durchführen musste. Wie kann ich das zur Arbeit bringen? Schauen Sie unter:

Range("P4").Select 
ActiveCell.FormulaR1C1 = "=MIN(RC[-12]:RC[-8],RC[-6]:RC[-2])" 
Range("Q4").Select 
ActiveCell.FormulaR1C1 = "=MAX(RC[-13]:RC[-9],RC[-7]:RC[-3])" 
Range("R4").Select 
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-14]:RC[-10],RC[-8]:RC[-4])" 
Range("S4").Select 
ActiveCell.FormulaR1C1 = "=STDEV.S(RC[-15]:RC[-11],RC[-9]:RC[-5])" 
Range("P4:S4").Select 
Selection.AutoFill Destination:=Range("P4:S68"), Type:=xlFillDefault 
Range("P4:S68").Select 

Answer 1

Kann dies:

With Selection 
    .FormulaR1C1 = "=MIN(RC[-12]:RC[-8],RC[-6]:RC[-2])" 
    .Offset(,1).FormulaR1C1 = "=MAX(RC[-13]:RC[-9],RC[-7]:RC[-3])" 
    .Offset(,2).FormulaR1C1 = "=AVERAGE(RC[-14]:RC[-10],RC[-8]:RC[-4])" 
    .Offset(,3).FormulaR1C1 = "=STDEV.S(RC[-15]:RC[-11],RC[-9]:RC[-5])" 
End With