如何让此VBA代码与任何选定的列一起使用？

Question

目前，我试图获取一组数字的最小值，最大值，平均值和标准差。我希望能够选择任何列并能够找到这些数据。即使我不得不分开进行选择。我怎样才能让它发挥作用？看下面：

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

可能是这样的：

task