To copy down till the next non blank cell using vba

[hets]

Hello everyone,

Is there any way possible to do this:
In column A, I need to find the first non blank cell, then copy that text down in the blank cells that follow UNTIL the next non blank cell. Then pick up the next text item and copy it down UNTIL etc. (but stopping at the last row of data) Is there a way to do this?

Thank you in advance

 

[Mike7952]

Try this.. Adjust to your needs.

Sub abc()
 For ptr = 2 To 20
  If Cells(ptr, "A") = vbNullString Then
    Cells(ptr, "A") = Cells(ptr, "A").Offset(-1, 0)
  End If
 Next
End Sub

 

[hets]

Thank you for that. How can I change it to apply to the whole of column A? (Instead of just till A20)

 

[Mike7952]

Without seeing or knowing the structure of your sheet try this

Sub abc()
Dim lastRow
lastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
 For ptr = 2 To lastRow
  If Cells(ptr, "A") = vbNullString Then
    Cells(ptr, "A") = Cells(ptr, "A").Offset(-1, 0)
  End If
 Next
End Sub

 

[hets]

Thank you so much! It works exactly the way I wanted it to! Thanks again!