For ColCount = 1 to 20
Data = cells(1,ColCount) & vbcrlf
Data = Data & cells(2,ColCount) & vbcrlf
Data = Data & cells(3,ColCount) & vbcrlf
Data = Data & cells(4,ColCount)
cells(1,ColCount) = Data
next Colcount
rows(2:4").delete

"jeremiah" wrote:

Currently using 4 rows for my column headings, my issue is that some of the
column headings have text in row 1 and 3 and no text in row 2 and 4, other
headings have text in all 4 rows. I cannot seem to merge the cells into 1
because that doesn't give me the white space between rows where I need it. I
am trying to condense all of the values into 1 row so when I do my
xlFilterCopy to new sheets, it will copy the header row on each sheet. Or is
there a way to copy 4 header rows to each sheet? or Copy 4 header rows
between each change in value and then filtering to each sheet? Am stumped
for what would be the best solution.
GOALS 1,111 WPH
Work Rates
Week Ending: Work Work
Volume Hours