If name appear in column write x amount of rows with same information

[djfscouse]

Hi,

I'm new to VB so forgive me if my questions are too simple.

What I'm trying to do is search only column D and if it has specific words like "old" or "new" then I would like it to make a copy of that row and place it below. It doesn't have to be directly below. If the column contains the word "renew" then paste that row twice below.

Also, if the column D has the word "open" then write 1, 2, 3, 4 in the columns next to it, I have started with this below:

Sub UpdateColumns()
If Range("D").Value = "open" Then
    Range("E:H").Value = Array(10, 11, 12, 13)
End If
End Sub

Thanks for any help,

David

[Cutter]

@ djfscouse

Welcome to the forum.

Please notice that code tags have been added to your post(s). The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at top of the page and read Rule #3.
Thanks.