Why don't you take it as far as you can with point #1 then post a copy of
the workbook to a web share and we can look at 'improving' it and doing
point #2.

I think Bob has a good idea. See how things go with modifying a recorded
macro and others can help from there.  There are a number of site around the
net to help.
http://www.mvps.org/dmcritchie/excel/getstarted.htm
http://www.the-excel-advisor.com/excel-macros-vba-tutorial.html
http://class.et.byu.edu/ce270/vbaexcel_primer/intro.htm
http://www.exceltip.com/excel_links.html

Here's some code that shows first what Excel recorded when I simply used row
2's format as the basis for a 'new' row at row 3, then goes on to show how I
modified it to get away from the specific rows involved with the recorded
macro, and finally how I then moved things into the
Worksheet_BeforeDoubleClick() event to do the process in response to a double
click in column A.

Sub RecordedMacro()
'
' Macro1 Macro
' Macro recorded 4/25/2008 by JLatham
'

'
 Rows("2:2").Select
 Selection.Copy
 Rows("3:3").Select
 Selection.PasteSpecial _
  Paste:=xlPasteFormats, Operation:=xlNone, _
  SkipBlanks:=False, Transpose:=False
End Sub

Sub ModifiedMacro()
 'work on any individual row
 ActiveCell.EntireRow.Copy
 'paste the format for the entire active row into the row below it
 ActiveCell.Offset(1, 0).EntireRow.PasteSpecial _
  Paste:=xlPasteFormats, Operation:=xlNone, _
  SkipBlanks:=False, Transpose:=False
 'get out of the cut/copy mode
 Application.CutCopyMode = False
 ' move into a single cell (col A) of newly formatted row
 ActiveCell.Select
End Sub

all of that put into the worksheet's _BeforeDoubleClick() event handler:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
 'only respond to a double-click in column A
 If Target.Column <> 1 Then
   Exit Sub
 End If
 'additional test: target cell must not be empty, and
 'the cell below it must be empty
 If Not IsEmpty(Target) And _
  IsEmpty(Target.Offset(1, 0)) Then
   Cancel = True ' do not do normal double-click action
   'work on any individual row
   ActiveCell.EntireRow.Copy
   'paste the format for the entire active row into the row below it
   ActiveCell.Offset(1, 0).EntireRow.PasteSpecial _
    Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
   'get out of the cut/copy mode
   Application.CutCopyMode = False
   ' move into a single cell (col A) of newly formatted row
   ActiveCell.Select
 End If
End Sub