Macro to copy cell value if.......

[gobblechops]

Hi everyone,

Can someone help with creating a code to run for this task, (I don't think it is possible without VBA but I am a beginner).

So in range (B2:Bxxxx), run down the range one cell at a time,
Condition 1. If the cell is blank and the adjacent cell in column A is blank then move down to the next cell in column B
Condition 2. If the cell in column B already contains a text move to the next cell down,
Condition 3. If the cell is blank and the adjacent cell in column A contains a value then copy the text in the cell above from column B and move down
The gaps between the products shouldn't be more than 15 rows so if Condition 1 is repeated more than 15 times, STOP.

this is how it looks now

A B

20 Apple
10


40 Banana
60
170
80



30 Orange
60
10

[gobblechops]

I want it to look like this

A B

20 Apple
10 Apple


40 Banana
60 Banana
170 Banana
80 Banana


30 Orange
60 Orange
10 Orange

[JeteMc]

The following doesn't populate the missing values in column B instead it populates columns D:E, however, perhaps it will be of some help.
With columns A:B filled as shown in post #1, starting with row 2, paste the following into D2: =IF(A2<>"",A2,"")
Paste the following into E2: =IF(A2="","",IF(AND(A2<>"",B2<>""),B2,E1))
Copy the formulas down as far as needed.
Let us know if you have any questions.

[gobblechops]

Hi JeteMc,

thanks for the reply, I recorded a new macro, input the formula and some copying, pasting and deleting and all seems to be good. As long as it works with one click I am happy, which it now seems to.

Thank you.

[JeteMc]

You're Welcome and thank you for the feedback. Please take a moment to mark the thread as 'Solved' using the thread tools drop down in the ribbon above your first post. I hope that you have a blessed day.