Insert Line Macro

[Spyder]

Does anyone know how to write a macro that will allow me to insert a row just
one row below the row with an "insert row" button on my worksheet. Basically
what I am trying to accomplish is to have a series of row categories where
information will be entered. If a user would like to add another line to a
category for an additional item, I want them to be able to click a button and
a blank line to be inserted above all the others in the category with the
same formatting as the other lines in the category. It would be great if
this was a generic macro that could be used for multiple categories on a
worksheet when assigned to each categories' separate button.

EAXAMPLE:

CATAGORY: CARS [Insert CARS line]
(After I click the "Insert CARS line" button, a new row with same formatting
as those below would be inserted here without negatively affecting the
ability of the "Insert CARS line" to complete the same functionality below.)
blue car 1999 good condition
green car 2000 poor condition
black car 2004 great condition

CATAGORY: TRUCKS [Insert TRUCKS line]
green truck 2001 poor condition
green truck 2001 good condition
black truck 2004 great condition

THANK YOU VERY MUCH FOR ANY INSIGHT!!!

 

[David McRitchie]

Hi Spyder,
See http://www.mvps.org/dmcritchie/excel/insrtrow.htm#dclick
Most on the page are regular macros, this one is an Event Macro, which is installed
differently. Right click on the sheet tab, view code, insert the following
code from my web page:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True 'Eliminate Edit status due to doubleclick
Target.Offset(1).EntireRow.Insert
Target.EntireRow.Copy target.Offset(1).EntireRow
Target.Offset(1).EntireRow.SpecialCells(xlConstants).ClearContents
End SubYou data might lend itself to macro examining the data.There is also subtotals on the data menu that might be of use.---HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]My Excel Pages:
http://www.mvps.org/dmcritchie/excel/excel.htmSearch Page: http://www.mvps.org/dmcritchie/excel/search.htm "Spyder"