Auto fill in columns

Hi,

How do you auto fill the cells in a column

Eg:

1 text1
2
3
4 text2
5
6
row 2 and 3 should be filled with text1 and 5, 6 should be filled with text2. Double clicking the corner of text1 cell is not what I am looking for. Please help

I guess you have posted this thread in the wrong category.
Nevertheless, try this code out -

Sub autofill_data()

lastrow = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To lastrow

    If Range("A" & i).Value <> "" And Range("A" & i + 1).Value = "" Then
        
        Range("A" & i + 1).Value = Range("A" & i).Value
        
    End If
    
Next

End Sub