Sub Insert()

Ended up working on the Sony Viao all morning, its poor fan whirring like a twin-prop airplane, so I could execute this macro on the Big Data Set. Going to need a macro solution for the Macbook eventually, which would appear to require 1) figuring out Applescript, 2) trying Keyboard Maestro, or 3) making better use of the Bootcamp partition. For good keeping, today’s macro:

Sub Insert()
'
' Insert Macro
' Macro recorded 7/12/2011 by Derek Mueller
'
' Keyboard Shortcut: Ctrl+w
'
ActiveCell.Offset(-1, 0).Range("A1:M1").Select
Selection.Copy
ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 7).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "D"
ActiveCell.Offset(0, 3).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = " "
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "NAME"
ActiveCell.Offset(1, -11).Range("A1").Select
End Sub