Loop column A then copy row data to next all blank row

[SamKhem]

Dear Senior member
I would like disturb you again. as run vba loop column A then meet first row non blank then copy to blank row as below.

Data	Result
1PD21056	1PD21056
100LD21053	100LD21053
	100LD21053
	100LD21053
	100LD21053
	100LD21053
	100LD21053
	100LD21053
100LD21056	100LD21056
100LD21058	100LD21058
100LD21065	100LD21065
	100LD21065
	100LD21065
	100LD21065
	100LD21065
	100LD21065
	100LD21065
	100LD21065
100LD21070	100LD21070
	100LD21070
	100LD21070
	100LD21070
	100LD21070
	100LD21070
	100LD21070
	100LD21070
	100LD21070
	100LD21070
	100LD21070
100PD21053	100PD21053
	100PD21053
	100PD21053
	100PD21053
	100PD21053
	100PD21053
	100PD21053
	100PD21053
	100PD21053
100PD21053	100PD21053
	100PD21053
	100PD21053
	100PD21053
	100PD21053
	100PD21053
	100PD21053
	100PD21053
	100PD21053
100PD21056	100PD21056
100PD21056	100PD21056
100PD21058	100PD21058
100PD21058	100PD21058
100PD21065	100PD21065
	100PD21065
	100PD21065
	100PD21065
	100PD21065
	100PD21065
	100PD21065
	100PD21065
	100PD21065
	100PD21065
100PD21065	100PD21065

 

[hagia_sofia]

Would

=IF(A2<>"",A2,B1)

count as a solution?

 

[SamKhem]

Would

=IF(A2<>"",A2,B1)

count as a solution?

Thank for this formula. Have great weekend.

 

[Cubist]

Here's VBA option.

Sub fillDown()
    Dim a, b
    Dim ws As Worksheet
    Dim i As Long
    Set ws = ThisWorkbook.Sheets("Sheet2")
    
    a = ws.Range("A2:A" & ws.Cells(Rows.Count, "A").End(xlUp).Row)
    ReDim b(1 To UBound(a, 1), 1 To 1)
    For i = 1 To UBound(a, 1)
        If a(i, 1) = "" Then
            b(i, 1) = b(i - 1, 1)
        Else
            b(i, 1) = a(i, 1)
        End If
    Next i
    
    ws.Range("B2").Resize(UBound(b, 1), 1).Value = b
End Sub

 

[SamKhem]

Thank for this vba code.

Here's VBA option.

Sub fillDown()
    Dim a, b
    Dim ws As Worksheet
    Dim i As Long
    Set ws = ThisWorkbook.Sheets("Sheet2")
   
    a = ws.Range("A2:A" & ws.Cells(Rows.Count, "A").End(xlUp).Row)
    ReDim b(1 To UBound(a, 1), 1 To 1)
    For i = 1 To UBound(a, 1)
        If a(i, 1) = "" Then
            b(i, 1) = b(i - 1, 1)
        Else
            b(i, 1) = a(i, 1)
        End If
    Next i
   
    ws.Range("B2").Resize(UBound(b, 1), 1).Value = b
End Sub