Thread: Macro to insert row & formulas and format, but no other data.

I dont know much about macros myself or how to write them.

I basically want to be able to highlight X amount of cells (100 for example), then click a macro button that will copy the formulas and formatting from the row directly above them.

I found this.. however it doesn't quite copy the formatting properly. It copies the colour but not the border on all cells.

Sub InsertRowFormulas()
Application.ScreenUpdating = False
Dim cell As Range
Selection.EntireRow.Insert
For Each cell In Intersect(ActiveSheet.UsedRange, Selection.Offset(-1, 0).EntireRow)
If cell.HasFormula Then
cell.Copy cell.Offset(1, 0)
End If
Next
Application.ScreenUpdating = True
End Sub

Any ideas on how to fix this??? It copies the formulas as wanted.