Insert line based on cell

[MattMaxWarehouse]

I have a spreadsheet with multiple sheets. I am trying to set it up so if sheet 2 D30 has a value, a row auto inserts on sheet 1 line 4.
I have been looking for a while and can't find anything that does what I need. Any help would be greatly appreciated.

 

[MattMaxWarehouse]

Sorry I also need it to add the values of cell sheet 2 D30 to sheet 1 cell D5, the newly added row.

 

[Fluff]

Hi & welcome to MrExcel
Try this

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$D$30" Or Target.Count > 1 Then Exit Sub
        If Len(Target) > 0 Then
            Sheets("[COLOR=#0000ff]Data[/COLOR]").Rows(4).Insert
            Sheets("[COLOR=#0000ff]Data[/COLOR]").Range("D4").Value = Target.Value
        End If

End Sub

Change the name in blue to match your sheet name.
This need to go into the sheet module.
Right click on the sheet you change, click view code & then paste the code into the window that opens up

ps This inserts the value into D4 as this is the row that was added

 

[MattMaxWarehouse]

Sorry,

Ok I didn't phrase it correctly. What I'm trying to do is Sheet 2 Cell U2 is my control. If U3 doesn't match I want to add a row on sheet 1 between lines 2 and 3 and fill sheet 1 cell I3 (the New line) with the info from Sheet 2 cell D31. I actually need to do this with several cells, but if you can get me started I can finish the rest.

 

[Fluff]

Ok try this

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$U$2" Or Target.Count > 1 Then Exit Sub
        If Target.Value <> Range("U3").Value Then
            Sheets("[COLOR=#0000ff]Data[/COLOR]").Rows(2).Insert
            Sheets("[COLOR=#0000ff]Data[/COLOR]").Range("I3").Value = Range("D31").Value
        End If

End Sub