Sub combinerows()

RowCount = 1

Do While Range("A" & (RowCount + 1)) < ""
HighNum = Range("A" & RowCount)
Do While Range("A" & (RowCount + 1)) < "" And _
Range("C" & (RowCount + 1)) = ""
HighNum = Range("A" & (RowCount + 1))
Rows(RowCount + 1).Delete
Loop
If Range("A" & RowCount) < HighNum Then
Range("A" & RowCount) = Range("A" & RowCount) & _
"-" & HighNum
Else
'convert column A to text
Range("A" & RowCount).NumberFormat = "@"
End If
RowCount = RowCount + 1
Loop

End Sub

"John" wrote:

in the column A is by order numbers. in column C is the parts number. between
one part number to the next part number there are empty box, the empty row
are inconsistent. is there anyway to make a macro to del the empty row
between the parts number and put the order number togehter. sample below...
sample: this is what I want to be:
205 1234568 |205-206 1234568
206 |207 1780009
207 1780009 |209-211 1190001
209 1190001 |212-215 11390008
210 |
211 |
212 11390008 |
213 |
214 |
215 |