Sub switchtargets()
'
' switchtargets Macro
'

'
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A2:F2").Select
    Selection.AutoFill Destination:=Range("A2:F13"), Type:=xlFillDefault
    Range("A2:F13").Select
    Range("G2:R2").Select
    Selection.Cut
    Range("I2").Select
    ActiveSheet.Paste
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "July"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "August"
    Range("G4").Select
    ActiveCell.FormulaR1C1 = "September"
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "October"
    Range("G6").Select
    ActiveCell.FormulaR1C1 = "November"
    Range("G7").Select
    ActiveCell.FormulaR1C1 = "December"
    Range("G8").Select
    ActiveCell.FormulaR1C1 = "January"
    Range("G9").Select
    ActiveCell.FormulaR1C1 = "February"
    Range("G10").Select
    ActiveCell.FormulaR1C1 = "March"
    Range("G11").Select
    ActiveCell.FormulaR1C1 = "April"
    Range("G12").Select
    ActiveCell.FormulaR1C1 = "May"
    Range("G13").Select
    ActiveCell.FormulaR1C1 = "June"
    Range("I2:T2").Select
    Selection.Copy
    Range("H2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("J12").Select
End Sub