Copying Titles Down

[melnemac32]

Hello Everyone,

I think that this should be a simple macro to create, but I'm not sure how to do it. I want my titles to copy down until it reachs a cell with text. When it reaches a cell with text, I want that text to copy down until it reaches the next cell with text.

I think that the example I have attached should clarify what I am looking for. Anyone know how to create a macro to do this?

[PCI]

Try next code and adjust A5 to the beginning of the range to treat or detail where to start

Please Login or Register  to view this content.

[Armando Montes]

Option:

Please Login or Register  to view this content.

[Solus Rankin]

Another option

Please Login or Register  to view this content.

[melnemac32]

Thanks for the answers everyone. The first one worked great! Now I would like to use it for the next column over as well, but when I try to run the macro I get a duplication error. I think that I must be missing something to change in the code.

The code that I used twice was as follows, the parts in green is was I changed. Can you please tell me what else I need to change in the code?

Dim WkRg As Range
Dim LastRow As Long
Dim F As Range
Application.ScreenUpdating = False
On Error Resume Next
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Set WkRg = Range([A5], Range("A" & LastRow))
WkRg.SpecialCells(xlCellTypeConstants, 21).ClearContents
For Each F In WkRg.SpecialCells(xlCellTypeBlanks)
F.Value = F.Offset(-1, 0)
Next
Application.ScreenUpdating = True
End Sub

[PCI]

To avoid any confusion can you send a sample with the result you expect in the second column
Note: You have to use code tags when posting code
You can try perhaps next statement: "A" changed to "B"

Please Login or Register  to view this content.

[melnemac32]

Thanks. Here is the example of what I want it to do. The above code works really well for my titles in column A. Now I want the same thing to happen for different titles in column C. Can you help me figure out the changes I need to make in the macro for it work?

[PCI]

Try

Please Login or Register  to view this content.

[melnemac32]

Thanks that worked perfectly!