Code for combining text and deleting row for c10 thru entire range

[DavidH56]

Excel 2003, I am trying to format a CSV file which has data separated into 2
different rows. I would like to look where column a is null (no text) and
column c has text and where column b from the previous row begins with "38"

for example

10 A B C
D
11 Harris 38bqw Open Window and apply Complete
12 adhesive to edges


I would like add c12 to the end of c11, delete c12 and loop same for entire
range on sheet. Range is usually not more than 1000 rows.

Thanks in advance.

 

[Joel]

Sub cobineRows()

RowCount = 1
Do While Range("C" & RowCount) <> ""
If Range("A" & (RowCount + 1)) = "" And _
Range("C" & (RowCount + 1)) <> "" Then

Range("C" & RowCount) = _
Range("C" & RowCount) & _
Range("C" & (RowCount + 1))
Rows(RowCount + 1).Delete
End If
RowCount = RowCount + 1
Loop

 

[DavidH56]

Thank you Joel. Works great.