Copying data based on a separate column

[Atvolpini]

Hi All,

I am coming to you with a question regarding filling in large amounts of data. I have a script which generates a column of data based on a couple fields my end users fill in. The next step I would like to automate is filling in other fields of each row for each value generated by the first script. The very first row is filled in by the end users based on controlled vocabulary/data validation. I need to copy the values down each column until i reach the last value of the 1st column. Here is what I mean graphically:

Here is what the table looks like after the first script:

ID Code	Letter	Number
A1	a	1
A2
A3
A4
A5
A6
A7
A8
A9
A10
A11
A12

<colgroup><col width="64" span="3" style="width:48pt"> </colgroup><tbody>
</tbody>

And here is what I need to happen:

ID Code	Letter	Number
A1	a	1
A2	a	1
A3	a	1
A4	a	1
A5	a	1
A6	a	1
A7	a	1
A8	a	1
A9	a	1
A10	a	1
A11	a	1
A12	a	1

<colgroup><col width="64" span="3" style="width:48pt"> </colgroup><tbody>
</tbody>

In reality, there are many more columns than just "letter" and "number" but im hoping to just adjust the code. I tried to figure out how to do this on my own, but my VBA skills are still pretty weak.

Thanks in advance!

 

[Fluff]

How about

Sub MyFillDown()
   Range("A2", Range("A" & Rows.Count).End(xlUp)).Offset(, 1).Resize(, 2).Filldown
End Sub