Excel VBA macro to select range separated by blank row and copy to next empty column

Hello experts, I have been searching and searching for a solution and I can't get this to work. Like the title says I need a macro to select range separated by blank row and copy to next empty column. I'm really new to VBA so I need some help.

example:

DATE1 TIME1 MISC1
012313 17:03 0.0
012313 17:03 0.0
012313 17:03 0.0

DATE2 TIME2 MISC2
012313 17:03 0.0
012313 17:03 0.0
012313 17:03 0.0

DATE3 TIME3 MISC3
012313 17:03 0.0
012313 17:03 0.0
012313 17:03 0.0

Would like following result:

DATE1 TIME1 MISC1 DATE2 TIME2 MISC2 DATE3 TIME3 MISC3
012313 17:03 0.0 012313 17:03 0.0 012313 17:03 0.0
012313 17:03 0.0 012313 17:03 0.0 012313 17:03 0.0
012313 17:03 0.0 012313 17:03 0.0 012313 17:03 0.0

Basically transpose range to next available column. Is this doable?

Any help will be greatly appreciated...

Thanks

You need to edit your posts and wrap the vba code with the code tag.
It is a MUST rule here.
i.e
[code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code]


See if this is what you wanted

Please Login or Register  to view this content.

@jindon
Thanks for your reply and sorry about not wrapping the code.

You are a great help This is just what I need except I would like to move the data instead of copying it.

Thanks again...

Thanks for the code tag.

Then use cut instead

Please Login or Register  to view this content.

Thanks jindon
You are a genius. Works perfect. I tried to change copy to cut but kept getting errors.

Thanks again for your prompt reply....