Insert Column with Header and fill down quarter

[Serafin54]

Hi all,

Trying to streamline and rather than

1. selecting the data column
2. inserting a new column to the left
3. Adding Time Period header
4. entering in ="Check Date - Qtr "&ROUNDUP(MONTH(RC1)/3,0)
5. filling down
6. saving as values

I am looking to see how to do this via VBA. Issue is, the date could be in column B on this report, D on another. It depends on who is submitting it and sometimes the rows of data could be 500+ per file received.
I don't have a lot of vba knowledge and am trying to learn but to be honest, haven't got past

Sub Quarter_from_date()

Selection.Insert Shift:=xlToLeft
ActiveCell.FormulaR1C1 = "Time Period"


Appreciate any direction.