Reorganizing data

[Taylor]

I'm trying to reorganize my data and I cannot find an easy way to do so. I
need to repeat this task daily, so I'd prefer some type of automation instead
of the copy & paste method. Here's the format of my data:

1 2 3 4 1 2 3 4
a b c d A B C D
e f g h E F G H

And here is the format I need it in:

a A
b B
c C
d D
....

Note: the lower case and capitalized letters represent completely different
values. The capitalized letters are the counts of the lower case items.

Thanks!

Taylor

 

[Don Guillett]

Is it all in one cell per row or do you have 8 columns?

 

[Taylor]

Hi Don,

There are 8 columns and 3 rows in the example existing format. There are 2
columns in the example desired format.

Thanks

Taylor

 

[Don Guillett]

One way
Sub moveemdown()
Range("b3:h22").ClearContents
For i = 1 To 2
dlr = Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(dlr, 2).Value = Cells(i, 2).Value
Cells(dlr, 3).Value = Cells(i, 2 + 4).Value

Cells(dlr + 1, 2).Value = Cells(i, 2 + 1).Value
Cells(dlr + 1, 3).Value = Cells(i, 2 + 5).Value

Cells(dlr + 2, 2).Value = Cells(i, 2 + 2).Value
Cells(dlr + 2, 3).Value = Cells(i, 2 + 6).Value

Cells(dlr + 3, 2).Value = Cells(i, 2 + 3).Value
Cells(dlr + 3, 3).Value = Cells(i, 2 + 7).Value
Next i
End Sub