SOLVED

# Populate Group Details

Occasional Contributor

# Populate Group Details

Hello,

I have a table with 3,216 columns starting from row 4 it goes down to row 40.  The odd number columns hold email addresses, the even number columns are blank but on row 3 they have a group name (odd columns row  3 are blank).

The first column has the maximum (36) number of email addresses and they than vary in number of rows populated down to one.  How can I populate the group name down to align where there is an email in the left (odd number) column?  Thanks

3 Replies
best response confirmed by Harry1605 (Occasional Contributor)
Solution

# Re: Populate Group Details

Run this macro:

``````Sub FillGroup()
Dim c As Long
Dim n As Long
Dim m As Long
Application.ScreenUpdating = False
n = Cells(3, Columns.Count).End(xlToLeft).Column
For c = 2 To n Step 2
m = Cells(Rows.Count, c - 1).End(xlUp).Row
Cells(4, c).Resize(m - 3).Value = Cells(3, c).Value
Next c
Application.ScreenUpdating = True
End Sub``````

# Re: Populate Group Details

Hans, Thank you so much you are a life saver. I have another ask but will post a seperate question. Do I award points or anything for the solution you have provided?

# Re: Populate Group Details

Hi Harry,

You have marked my reply as the answer. That's all you need to do.