If cell in column A is empty insert Text. Stop at row that has no values

[BerndH]

I am looking for VBA code doing this:

If cell in column A is empty insert Text. Stop at row that has no values

Here you can see that row ID 28 is the last column and no TEXT is added to the rows underneath 28

So far I wrote this code but don't know hot to solve the problem

Dim excelarea As Range
Dim excelcell As Range
Set excelarea = Worksheets("Table1").Range("A1:A100")
For Each excelcell In raBereich
    If excelarea = "" And excelcell.Offset(0, 1) <> "" Then
       [INSERT TEXT IN EACH EMPTY CELL IN THE COLUMN A "HERE MISSING"]
    End If
Next excelcell
End Sub

 

[mumps]

Your "Before" and "After" look exactly the same.

 

[BerndH]

Your "Before" and "After" look exactly the same.

Sorry I messed it up. Here is the corrected screenshot

 

[BerndH]

 

[Peter_SSs]

See if this does what you want. Test with a copy of your data.

Sub FillMissing()
  Dim lr As Long
  
  lr = Columns("A:B").Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  On Error Resume Next
    Range("A1:A" & lr).SpecialCells(xlBlanks).Value = "HERE MISSING"
  On Error GoTo 0
End Sub