Tom,

Thanks for the example. I am still having trouble. Could I email you the
file so you can see what I am dealing with? I don't mind paying for your
time--I think it would take you less than 10 min. My email is
if you want to email me. Thanks,

Matt

"Tom Ogilvy" wrote:

If it is fairly simple as you say, if you post a description of what you
want, you could probably get help here.

Sub AlterData()
Dim lastrow as Long, i as lOng
lastrow = cells(rows.count,1).End(xlup).row
for i = lastrow to 1 step - 1
rows(i+1).Insert
application.DisplayAlerts = False
cells(i,1).Resize(1,2).Merge
application.DisplayAlerts = True
Next
End sub

As an example.
This inserts a blank row below each existing row and merges the cells in
columns A and B of each original row.


--
Regards,
Tom Ogilvy


"MattPatsFan" wrote:

I need help writing a fairly simple macro. Is there some type of support I
could pay for to help write it? Basically I have a list of transactions
whose format needs to be altered and the steps to fix it are very repetitive.
I need to merge cells then delete a row and then repeat the process about
1000 times. I tried to record a macro myself but it doesn't quite work. Any
suggestions where I can get help?