How to copy data automatically

[Howdy1]

Hi,

I try to figure out a way to copy data dynamically. There are about 45,000 rows in the spreadsheet and there are two columns that I need to copy down. Column A lists the hierarchy key and column B lists the name. Until it hits another different key, the cell will be empty. However, for data extraction purpose, I need to know each line item belongs to which hiearchy. Thus, I need to copy the data from the hiearchy down until another hiearchy populates and procesess repeats itself. I can manually copy the data but like to know how I can code the VBA to copy it dyanmically?

----example

ColA ColB Colc Amount
Ups Upstream lx.343.31 $2
sx.433.12 $1
Dws Downstream lx.433.13 $1
dx.313.31 $2




Any advice is greatly appreciated!

Howdy

 

[lenze]

Untested

Sub Fanugi()
Dim cl as Range
For Each cl in Range("$A$2:$A" & Range("$A$65536").End(xlUp).Row)
If cl = "" Then cl = Cells(cl.Row-1,1)
Next cl
End Sub

lenze

 

[Howdy1]

Thank you very much! Sorry that I am still a newbie to VBA code. I understand the code provided is to use the search for the row. How will I identify the starting point and the next data point to copy the data? Where the code should be inserted? After the else?