Untitled

Sub ADDNEW()
'
' ADDNEW Macro
' Macro recorded 20/09/2007 by elm71
'
Dim holder As Integer
'
    ActiveSheet.Unprotect
    Range("B6").Select
    holder = ActiveCell.Value
    Rows("6:6").Select
    Selection.Insert Shift:=xlDown
    Range("B6").Select
    ActiveCell.Value = holder + 1
    Range("C7").Select
    Selection.AutoFill Destination:=Range("C6:C7"), Type:=xlFillDefault
    Range("A6").Select
    ActiveCell.Value = holder + 1
    Range("C7").Select
    Selection.AutoFill Destination:=Range("C6:C7"), Type:=xlFillDefault
    Range("C6:C7").Select
    Range("G7").Select
    Selection.AutoFill Destination:=Range("G6:G7"), Type:=xlFillDefault
    Range("G6:G7").Select
    Range("F25").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    Range("C6").Select
    Selection.ClearContents
    Range("H7").Select
    Selection.AutoFill Destination:=Range("H6:H7"), Type:=xlFillDefault
    Range("H6:H7").Select
    Range("I7").Select
    Selection.AutoFill Destination:=Range("I6:I7"), Type:=xlFillDefault
    Range("I6:I7").Select
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    Range("J7").Select
    Selection.AutoFill Destination:=Range("J6:J7"), Type:=xlFillDefault
    Range("J6:J7").Select
    Range("K7").Select
    Selection.AutoFill Destination:=Range("K6:K7"), Type:=xlFillDefault
    Range("K6:K7").Select
    Range("B5").Select
End Sub