vba to copy column data in stages

[jeffdolton]

Hi, I'm looking for some code please.

I have a workbook that consists of a food and drink table downloaded from an EPOS system. Here is a OneDrive link to my file Test file Produc Library.xlsx.

I want to be able to fill in the gaps in column A by copying a last cell in the list to all the blank cells immediately below then move to the next item and copy that down and so on. So to be clear cell A12 to be copied to cell A41, then cell A42 to be copied to A56 etc. Please note that the length of this table isn't finite and there could be blanks to fill in below the last 'name' entry. That would depend if there are any options in columns B,C and D.

Thanks for your help.

 

[Fluff]

How about

Sub jeffdolton()
   With Range("A2", Range("A" & Rows.Count).End(xlUp))
      .SpecialCells(xlBlanks).FormulaR1C1 = "=r[-1]c"
      .Value = .Value
   End With
End Sub

 

[jeffdolton]

Hi, I'm looking for some code please.

I have a workbook that consists of a food and drink table downloaded from an EPOS system. Here is a OneDrive link to my file Test file Produc Library.xlsx.

I want to be able to fill in the gaps in column A by copying a last cell in the list to all the blank cells immediately below then move to the next item and copy that down and so on. So to be clear cell A12 to be copied to cell A41, then cell A42 to be copied to A56 etc. Please note that the length of this table isn't finite and there could be blanks to fill in below the last 'name' entry. That would depend if there are any options in columns B,C and D.

Thanks for your help.

Many thanks. It worked for all items except the bottom item 'Youth T Shirt'. I added some additional options in Column B below M 7/8 and these were not populated with the name when the code was run.

 

[Fluff]

Ok, how about

Sub jeffdalton()
   With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
      .SpecialCells(xlBlanks).FormulaR1C1 = "=r[-1]c"
      .Value = .Value
   End With
End Sub

 

[jeffdolton]

Ok, how about

Sub jeffdalton()
   With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
      .SpecialCells(xlBlanks).FormulaR1C1 = "=r[-1]c"
      .Value = .Value
   End With
End Sub

It worked a treat, thanks very much.

 

[Fluff]

You're welcome & thanks for the feedback.
For future reference when you Mark as Solution, you need to select the post that helped the most, not your post saying it works. I have changed it for you this time.