concatenate text with a macro

[sgnat]

Hi,

I would like help with a macro to concatenate text. The account and text
information comes out of a system in the format below and I would like to
have the account number in column A row 1 and the text in column B row 1.
Skip the *** and move on the next account.

The number of text rows between the account and *** varies and the total
number of rows in a worksheet varies each month. The last row of information
always follow with ****.

Before
245_1234555
This account is used to capture material cost
and other ODC.
***
245_45012111
This account is used to capture gov't taxes
and sales taxes and miscellaneous expense
and other, other etc. etc.
***
After

245_1234555 This account is used to capture material costand other ODC.
***

245_45012111 This account is used to capture gov't taxes and sales taxes and
miscellaneous expense and other, other etc. etc.
***

Thanks you.

 

[KARL DEWEY]

This sounds like an Excel question and you have posted to an Access newsgroup.