macro to insert row above

[girl81]

Hello! Awesome Site by the way

I need to create a macro that will do the following....

When value entered into Column A Sheet2, insert row above. The cell in column A that is now inserted should read "subtotal" (In Bold, caps)

Thanks In advance!

 

[VoG]

Try this: right click the sheet tab, select View Code and paste in

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    Application.EnableEvents = False
    With Target
        .EntireRow.Insert
        .Offset(-1).Value = "SUBTOTAL"
        .Offset(-1).Font.Bold = True
    End With
    Application.EnableEvents = True
End If
End Sub

 

[girl81]

Thanks!!

Can we add...

If value reads subtotal in column A; sum totals in column H from (if there is a value in coulmn A down to where the value reads subtotal) this same sum to happen in column M and O as well...
I would also like to sum rows H+M+O in coulmn R (easy formula already inserted) but, when new row is inserted via macro, I would like this formaula to be in column r.

tricky to explain.

Hope you can help.