Excel macro example

Sub iTunesU_AddDateColumn()
'
' iTunes U Report customization before import to Database
'
    'select sheet 2 "Tracks"
    Sheets(2).Select

    'change heading Count to HitCount
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "HitCount"
   
    'insert Date column
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "LogDate"
    Range("A2").Select
    Do While Not (IsEmpty(ActiveCell.Offset(0, 1)))
        ActiveCell.FormulaR1C1 = Left(Sheets(2).Name, 10)
        ActiveCell.Offset(1, 0).Select
    Loop
   
    'select sheet 3 "Browse"
    Sheets(3).Select
   
    'change heading Count to HitCount
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "HitCount"
   
    'insert Date column
    Columns("A:A").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "LogDate"
    Range("A2").Select
    Do While Not (IsEmpty(ActiveCell.Offset(0, 1)))
        ActiveCell.FormulaR1C1 = Left(Sheets(2).Name, 10)
        ActiveCell.Offset(1, 0).Select
    Loop
   
    'rename worksheet
    Sheets(2).Name = "_Tracks"
    Sheets(3).Name = "_Browse"
End Sub