You are a brave man. When I choose Debug, the third line of the macro is highlighted.
Macro1 Macro
'
Sheets("Prior Data Runs").Select
Range("a30").Select
Sheets("Copy data here").Select
Range("r30").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Copy
Sheets("Prior Data Runs").Select
Range("a4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("B30").Select
Sheets("#-## thru #-##").Select
Columns("a:bh").Select
Selection.EntireColumn.Hidden = False
Sheets("#-## thru #-##").Select
Range("b21").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Range("b103").Select
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
Range("v95").Select
Selection.End(xlToLeft).Select
ActiveCell.EntireColumn.Select
Selection.Copy
Range("y1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("Ae1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("Ak1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("Aq1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("Aw1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("Bc1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("Bi1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("Bo1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("Bu1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("ca1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("cg1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Range("cm1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("cq16:cq89").Select
Selection.Copy
Range("aa16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("aa16:aa89").Select
Selection.Copy
Range("Ae16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("ae16:ae89").Select
Selection.Copy
Range("ak16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("ak16:ak89").Select
Selection.Copy
Range("aq16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("aq16:aq89").Select
Selection.Copy
Range("aw16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("aw16:aw89").Select
Selection.Copy
Range("bc16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("bc16:bc89").Select
Selection.Copy
Range("bi16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("bi16:bi89").Select
Selection.Copy
Range("bo16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("bo16:bo89").Select
Selection.Copy
Range("bu16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("bu16:bu89").Select
Selection.Copy
Range("ca16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("ca16:ca89").Select
Selection.Copy
Range("cg16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("cg16:cg89").Select
Selection.Copy
Range("cm16").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("e1:Ad1").Select
Selection.EntireColumn.Hidden = True
Range("Ai1:Aj1").Select
Selection.EntireColumn.Hidden = True
Range("Ao1:Ap1").Select
Selection.EntireColumn.Hidden = True
Range("Au1:Av1").Select
Selection.EntireColumn.Hidden = True
Range("BA1:Bb1").Select
Selection.EntireColumn.Hidden = True
Range("Bg1:Bh1").Select
Selection.EntireColumn.Hidden = True
Range("Bm1:Bn1").Select
Selection.EntireColumn.Hidden = True
Range("Bs1:Bt1").Select
Selection.EntireColumn.Hidden = True
Range("By1:Bz1").Select
Selection.EntireColumn.Hidden = True
Range("ce1:cf1").Select
Selection.EntireColumn.Hidden = True
Range("ck1:cl1").Select
Selection.EntireColumn.Hidden = True
Range("A72").Select
'
End Sub