Filter//paste data to 2 columns (title & details), autofill titles to match details

Hey guys,

I'm working off a document that has 2 sheets, the display sheet pulls data from the source data sheet and displays as this:

Title details
details
details
details
details
details
details
Title details
details
details
details
Title details
details
details
details

Is there a way I can auto drag the title down so they match the titles? This way I can do a pivot later on for easier analysis.

(please see the details in the workbook)

Thanks!

Do you mean fill blank cells in column A with the value of nonblank cell above them ?

Please Login or Register  to view this content.

You are welcome Frankximus3, thanks for marking the thread as solved and for the rep.point.

The code itself is quite simple :
Sheets("Display").Range("A1").CurrentRegion --> this is current region of range A1, equal to : select A1 then press Ctrl A (which is A1:G38)
Sheets("Display").Range("A1").CurrentRegion.Columns(1) --> this is the first column of above range (which is A1:A38)
.SpecialCells(xlCellTypeBlanks) --> this is selecting only blank cells in A1:A38 (which are A3,A5:A11,A13:A38)

then apply formula in (R1C1 format) for these blank cells to : equal to the value of one cell above it
then change the formulas to values using : .Value = .Value


So the macro actually doing is :
- Select A3 (blank) and put this formula on A3 : =A2
- Select A5 (blank) and put this formula on A5 : =A4
- Select A6 (blank) and put this formula on A6 : =A5
etc
then you select all column A, copy, and paste as values (to remove the formulas).


Regards

You are welcome, glad I can help.