VBA would be simple.

Sub Test()
Dim iLastRow As Long
Dim i As Long

i = 1
For Each sh In ThisWorkbook.Worksheets
If sh.Name < "Master" Then
iLastRow = sh.Cells(shRows.Count, "A").End(xlUp).Row
sh.Range("A1").Resize(iLastRow, 4).Copy _
Worksheets("Master").Cells(i, "A")
i = i + iLastRow
End If
Next sh

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"childothe1980s" wrote in message
...
Hello:

I have a spreadsheet of about 30 tabs. Each tab contains a different
number
of rows but the same number of columns (four columns).

Is it possible to combine these tabs into one spreadsheet with four
columns?
Probably not, but I thought that I would check with you all out in
cyberspace.

Thanks!

childofthe1980s