Automating cell Autofilling

[Visor]

Forum Dear friends, greetings.
I would like to make the cells in the column B only as far as no corresponding information in column A. So far I Autofilling autorrellene specifying the rank, but ... there is another way to do more automated?
For example, first click on the red button and then on the blue button
Thank you in advance for your support

 

[Luke M]

This is how I would do it, takes just a single macro.

Sub TestFill()
Dim rngBlock As Range
Dim r As Range

'Grab all the blocks of data
Set r = Range("A2:A10000").SpecialCells(xlCellTypeConstants)

'Error check
If r Is Nothing Then
    MsgBox "Couldn't find info."
    Exit Sub
End If

Application.ScreenUpdating = False
'For each block of data, fill in items to the right
For Each rngBlock In r.Areas
    rngBlock.Offset(0, 1).FillDown
Next
Application.ScreenUpdating = True
End Sub

 

[Visor]

Awesome!!
Very thankful!!

But if the database was also shown in this file that I go, what would the code.
I ask because I don´t find in your code something that recognizes the ranks in yellow separating each block

Maybe es this:

For Each rngBlock In r.Areas

and each block is separated by empty row!!!??

 

[Luke M]

Are there blanks, or no blanks? I'm confused. Do you need to insert blanks? Which is your actual starting condition, and what is the final desired output?

 

[Visor]

I'm sorry, it is not my intention to cause confusion, I added this question because I have been forced to separate the rows of records in this database. So I wanted to know how would the code "if" you do not have blank rows, ie it is continuous. So when you have those cases I sabria code apply.
and then I got the file on this case
Thanks for your support

 

[Luke M]

This would do that.

Sub SimpleCode()
'fill blanks
Range("B2:B10000").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
End Sub

 

[Visor]

Fantastic!!!!, I am very grateful
Topic solved