For some reason, Microsoft did not include Visual Basic for Applications (VBA) in Excel 2008 for Mac.
As a result the macros that you see, which are written in VBA cannot be used.
You can use AppleScript, but I haven't seen it used on this site.
If this is a one-time rearrangement of the file, you could find someone using Excel on Windows and use the following macro:
Dim rngStart As Range
Dim rngEnd As Range
Dim rngCell As Range
Dim rngDest As Range
Dim intOffst As Integer
Dim intItem As Integer
'set start of range
Set rngStart = Range("A1")
'find end of range
Set rngEnd = Range("A" & CStr(Application.Rows.Count)).End(xlUp)
'set item counter
'-1 as its going to be incremented and first offset will be zero
intItem = -1
'set destination range start
'use row 2 to allow for headers in row 1
Set rngDest = Worksheets("Destination").Range("A2")
'set destination offset counter
intOffst = 0
'loop through source data
For Each rngCell In Worksheets("Source").Range(rngStart, rngEnd)
'test item counter (3 items per record)
If intItem = 2 Then
intItem = 0
'increment destination row offset
intOffst = intOffst + 1
intItem = intItem + 1
This takes this type of data
and converts it to this:
A B C
1 Businessname1 Address1 City1
An alternative, for a one-time conversion is this:
If all addresses are in column A, starting in row 1
Enter these three formulas:
Select cells B1 to D3
Drag this group of cells to extend them down to the last row of data (the last City address row).
(Don't select B1 to D1 - you must include the empty cells B2 to D3 for this to work).
You will now have all your fields in three columns, but with empty cells in two rows after each record.
Now select Column B
Use the Filter function to filter for Non-blank cells
(I don't have Excel 2008, so I can't give you detailed instructions)
With Non-blank cells selected in column B, select columns B, C and D and copy.
Go to an empty worksheet and select cell A1 and Paste.