Fill cells between values

Hi, in my workbook I have a sheet called "DATA" where users copy over data from a database into range B:X. The row depends on where the previous data ends. In column A the Month name is put in the first row of the added data and the last row of the added data due to the formatting from the source. I need to have a macro fill in the blank cells in column A between the two cells that already have the month.

For example, if someone pastes data into cells B1:X55 where A1 is "JULY" and A55 is July. I need a macro to fill A2:A54 in with the same value automatically.

Any help is appreciated.

Upload a sample file depicting your scenario to make use of please...

Your file that you have uploaded has no depiction of what you want...
This is my understanding...

Option Explicit

Sub fillcell()
Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1").Resize(lr - 1).FillDown
End Sub

Your attached file does not show a before and desired result sheet, so this is only a guess, but maybe.

With Range("A:A").SpecialCells(xlCellTypeBlanks)
    .FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With

Using Power Query, here is the Mcode for your file. If you are unfamiliar with Power Query, click on the links in my signature.

let
    Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
    #"Filled Down" = Table.FillDown(Source,{"Column1"})
in
    #"Filled Down"