Using macro to sort my text

Hey!
Got a ******** of excel documents with contacts, adresses etc in the order shown below
i want to rearrange them in the order shown at the bottom, how do i do this in the most efficient way.

Each excel got from 1-500 customers and in order for me to import them to my database i need to rearrange the order in the excels. please show me how.

[collumn 1]
Random guy
Randomstreet 11
183 34 Randomcity
mobile nr 070 xxx xxx xxx

Random girl
Randomstreet 11
183 34 Randomcity
mobile nr 070 xxx xxx xxx

This is how i want it to look
------[collumn 1]-----[collumn 2]-----[collumn 3]---[collumn 4]---[collumn 5]
row 1-----Name--------Adress---------zipcode--------city------------phone nr
row 2-----Name--------Adress---------zipcode--------city------------phone nr

Some guy at another forum gave me the code:

Sub Makro1()
' Jobbigt makro
For p = 1 To 3 ' post
For c = 1 To 4 ' col
rad = (p - 1) * 5 + c
Worksheets("Blad2").Cells(p, c).Value = Worksheets("Blad1").Cells(rad, 1).Value
Next
Next
End Sub

(Swedish code, blad meaning Page, rad meaning cells)

He said the macro needed some working, and ive got no skills in programming so anyone mind helping me out a bit?