finding empty cells and entering same data in them using vba from userform

[Vans666]

##	##	##	##	##
##	##	##	##	##
			XXX
##	##	##	##	##
##	##	##	##	##
##	##	##	##	##
	XXX
##	##	##	##	##

<tbody>
</tbody>

I would like to be able to enter the same data into the empty cells marked xxx from a userform using VBA.
The cells marked with a hash are for example only. ie these may be hundreds of rows apart.
Basically how do I use the find function or similar to locate the 2 empty cells marked xxx
All rows filled in above the first xxx

 

[My Aswer Is This]

Assuming we are dealing with cells in column A to E
And we are looking for empty cells in those four columns
And assuming you will enter some value into UserForm Textbox1
And assuming we are dealing with Sheet(1)

Use this script to fill in those cells with the value you entered into Textbox1 on your UserForm.

And to just help you see the results I will highlight the cells in red.
You can remove that part of code later.

Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim c As Range
    For Each c In Sheets(1).Range("A1:E" & Cells(Rows.Count, "E").End(xlUp).Row)
        If c.Value = "" Then
            c.Value = TextBox1.Value
            c.Interior.ColorIndex = 3
        End If
    Next
Application.ScreenUpdating = True
End Sub

 

[Vans666]

Thank you very much "my answer is this" for having a go! Unfortunately it is NOT what the doctor ordered .
For clarity in my original post. all hashes refer to filled in cells, the blanks refer to empty cells. I only want the 2 indicated cells filled in with the same data.
Unfortunately your code fills in all blank cells in the indicated columns to the end of the worksheet. all your other assumptions are correct.
Once again thanks for trying. I knew this was going to be a difficult one.

 

[Peter_SSs]

Since MAIT's answer didn't do what you expected, can you clarify the following ..

I would like to be able to enter the same data into the empty cells marked xxx

Are they empty or are they filled with "XXX"?
If empty, how should they be differentiated from all the other empty cells that MAIT's code filled in? For example, is it
- The first empty cell in column D and the first empty cell in column B after the second block of data?
- Something else?

 

[Vans666]

Thank you Peter for making me be more specific !
The first XXX in column D refers to the first empty cell after the block of filled in cells
the blank cells after that can change ie can grow over time
The second XXX in column B is the next empty cell after the next block of filled in cells

 

[Peter_SSs]

Try something like

Private Sub CommandButton1_Click()
  Columns("D").SpecialCells(xlBlanks).Areas(1).Cells(1).Value = TextBox1.Value
  Columns("B").SpecialCells(xlBlanks).Areas(2).Cells(1).Value = TextBox1.Value
End Sub