Move cell data up 1 row up and over 2 columns (after a count)

[steven_e]

I need to move data from row 2, column A to row 1 column C...Any VBA help would be greatly appreciated.

" - " hyphens are just space markers

Original:
-------Col1---Col2----Col3---Col4
Row1--Dog---Cat---
Row2--Cow---Pig
Row3 (blank)
Row4--Red----Blue
Row5--Grey---Black
Row6 (blank)
*and this keeps repeating to end of document*

I want it to change to:
-------Col1---Col2--Col3--Col4
Row1--Dog----Cat--Cow---Pig
Row2 (blank)
Row3 (blank)
Row4--Red----Blue--Grey--Black
Row5 (blank)
Row6 (blank)