Split a group of 3 very long columns into shorter groups of 3

[talla]

I have a sheet with 2 columns and 10802 rows. I need to split the group of 2 columns into several groups of 2 columns so the sheet is shorter. Ultimately, I want to save it as a 2 page PDF filled with 2-column sets of data.
Row 1 is column headers (text). All other cells are numbers.
Column A has a series of numbers from 100 to 10900 in order. Column B is a number.
The columns need to be divided every 55 rows (header row + 54 rows of data).
Headers must be repeated for each group.

	A	B
1	H1	H2
2	100	5.5
3	101	4.3
4	102	5.2
5	103	3.3

<tbody>
</tbody>

I will greatly appreciate any suggestion as to how I can accomplish this. A macro would be awesome.
Thanks

 

[talla]

Re: Split a group of 2 very long columns into shorter groups of 2

Sorry - title should be "Split a group of 2 very long columns into shorter groups of 2"

 

[Rick Rothstein]

Re: Split a group of 2 very long columns into shorter groups of 2

Give this macro a try...

Sub SplitTwoLongColumnsToSeriesOfShorterColumns()
  Dim R As Long, C As Long, LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  C = 1
  For R = 56 To LastRow Step 54
    C = C + 2
    Cells(1, C).Resize(, 2).Value = Range("A1:B1").Value
    Cells(R, "A").Resize(54, 2).Copy Cells(2, C)
  Next
  Range("A56:B" & LastRow).Clear
End Sub

 

[talla]

Re: Split a group of 2 very long columns into shorter groups of 2

Awesome! Thank you so much!

Give this macro a try...

Sub SplitTwoLongColumnsToSeriesOfShorterColumns()
  Dim R As Long, C As Long, LastRow As Long
  LastRow = Cells(Rows.Count, "A").End(xlUp).Row
  C = 1
  For R = 56 To LastRow Step 54
    C = C + 2
    Cells(1, C).Resize(, 2).Value = Range("A1:B1").Value
    Cells(R, "A").Resize(54, 2).Copy Cells(2, C)
  Next
  Range("A56:B" & LastRow).Clear
End Sub