VBA to format PDF report

Hi,

I have a report which is only delivered to me via PDF and despite trying all PDF to Excel converters online it still doesn’t give me the results I want in excel.

I therefore need to use a macro within excel but I no very very little about VBA. I am hoping someone is feeling generous to help with the code. I know the full code will be time consuming so if anyone can help with any of the rules it would be helpful.

I have gone through the rules I believe I need, they are:
1 Sheet is APP024
2 Unmerge all cells
3 Set Row height to 15
4 All columns width = 10 apart from B which should be 30
5 Delete row if column A contains contains any of the following "Business", "Code", "Page" or if row is blank. Only from ROW 3 Downwards
6 Inset Row 6 - merge cells C6:E6 and place the text "Contribution From" and merge cells F6:H6 and place the text "Contributions To"
7 Insert Row 7 and place the following text
A7 Code
B7 Business
C7 Ex VAT £
D7 VAT £
E7 INC VAT £
F7 Ex VAT £
G7 VAT £
H7 INC VAT £
8 Make rows 6-7 bold
9 If column A contains "Sub-total" make row bold and double underline A:H
10 Freeze Pains - row 7

I know a lot – and hopefully I have covered them all off.

I have provided an example which shows the original format and the ideal format of what I want to achieve.

Can anyone offer any help please?

Hi,

I have been looking on the formum and this post:

HTML Code: 

Has many elements which I need.

This example though copies the sheet and then formats the new sheet created keeping the oringal. I do not need to do that - I just dont know how to get started with this.

Would it be worthwhile me recording each element manually to obtain the codes?

Hi,

I have made a bit of progress with this:

This is my current code:

Please Login or Register  to view this content.

I would like to add the following to it but I am unsure how?

Please Login or Register  to view this content.

Can anyone help please?

Thanks Fotis - this worked!!

Please Login or Register  to view this content.

This code currently looks within a cell and and finds the word Sub-Total then makes it red, bold and underlined.

It currently works but it skips column B (I think because it is blank)? How do I fix the range so B is also underlined?

I might be making this up but hopefully you can follow the logic

Can the code be updated to include: Rows(N). and then set a column Range? e.g. Rows(N).Column.(A:H)?

Pure guesswork so please be gentle.