Which cell?if cell value is 2,3,4,5,..etc then insert row
For which rows?"copy the D column formulas" and paste it to E AND F to the new added columns
Private Sub Worksheet_Change(ByVal Target As Range)
' Run if cell A3 is updated
If Target.Address(0, 0) = "A3" Then
' If number entered is greater than zero
If Target > 0 Then
Application.EnableEvents = False
' Insert columns
Range(Cells(5, 5), Cells(5, Target.Value + 4)).EntireColumn.Insert
' Copy formulas
Range("D5:D67").Copy Range(Cells(5, 5), Cells(5, Target.Value + 4))
Application.EnableEvents = True
End If
End If
End Sub