That worked exept for one thing I forgot to mention:

Some of the numbers have an asterik (*) in front of them. So the macro
needs to be altered slightly so that anything that isn't a number or begins
with an asterick. Is that possible?

"Joel" wrote:

I had to use trim to remove all the blank characters to check for a number.
I then added 1 space between the two lines that I combined.


Sub CombineRows()

RowCount = 2
Do While Range("A" & RowCount) < ""
Data = Trim(Range("A" & RowCount))
If Not IsNumeric(Left(Data, 1)) Then
Range("A" & (RowCount - 1)) = _
Range("A" & (RowCount - 1)) & " " & Data
Rows(RowCount).Delete
Else
RowCount = RowCount + 1
End If
Loop
End Sub


"suestew" wrote:

I need every row which doesn't begin with a number to be incorporated into
the row directly before it. Here is an example of how the spreadsheet looks:

1. Transportation Request...................1,
2. Information..............................2, thru 4,
3. Summons and Return of Service............5, thru 7,
4. Minute Entry - July 27, 1995 -...........8, thru 13,
5. Transportation Request..................14,
6. Defense Attorney List and Notice........15, thru 17,
7. Notice..................................18,
8. Appearance of Counsel...................19,
9. Formal Request For Discovery Pursuant To
Procedure...............................20, 21,

I need the row that comes just below entry 9. (Procedure....)to go right
after the text in row 9. (Formal Request For Discovery Pursuant To)

There are hundreds of instances in my spreadsheet where this is the case.

Thanks!