What's the best way to add a row and copy formulas and formats?

M

Michael at Sigcon

I have a work sheet where I enter data into the first four cells of a row and
the rest of the cells in the row are formulas. Each row is formatted
differently. What's the best way to add a new row to the bottom and have all
the formatting and formulas of the row above it?
 
C

CLR

Here's a crude macro that will do it for you, copy your bottom row down to
the next blank row and delete the entries in the first four cells and place
the cursor in column A of that row to facilitate new data entry..........

Sub NewRow()
'
Range("A1").Select
Selection.End(xlDown).Select
Selection.EntireRow.Copy
Selection.Offset(1, 0).Select
ActiveSheet.Paste

Range("A1").Select
Selection.End(xlDown).Select
Selection.Value = ""
Selection.Offset(0, 1).Value = ""
Selection.Offset(0, 2).Value = ""
Selection.Offset(0, 3).Value = ""

Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select

End Sub

hth
Vaya con Dios,
Chuck, CABGx3
 
Top