Hi all, I would like to write a VBA code so that, to run through col. “F” and rows down and where exist bold descriptions should move them to adjacent cells in col. “A”
ORIGINAL DATA
[TABLE="class: cms_table_MsoNormalTable"]
<tbody>[TR]
[TD][/TD]
[TD="width: 78"]
A
[TD="width: 45"]
B
[TD="width: 67"]
C
[TD="width: 150"]
D
[TD="width: 75"]
E
[TD="width: 143"]
F
[TD="width: 26"]
G
[TD="width: 131"]
H
[TD="width: 90"]
J
[/TR]
[TR]
[TD="width: 62"]
9
[TD="width: 78"]
Date
[TD="width: 45"]
TYPE
[TD="width: 67"]
CODE
[TD="width: 150"]
DEPARTMENT/REF.
[TD="width: 75"]
ENTRY #
[TD="width: 143"]
DEPARTMENT
[TD="width: 26"][/TD]
[TD="width: 131"]
DESCRIPTION
[TD="width: 90"]
AMOUNT
[/TR]
[TR]
[TD="width: 62"]
10
[TD="width: 78"][/TD]
[TD="width: 45"][/TD]
[TD="width: 67"][/TD]
[TD="width: 150"][/TD]
[TD="width: 75"][/TD]
[TD="width: 143"][/TD]
[TD="width: 26"][/TD]
[TD="width: 131"][/TD]
[TD="width: 90"][/TD]
[/TR]
[TR]
[TD="width: 62"]
11
[TD="width: 78"]
17-07-16
[TD="width: 45"]
RUR
[TD="width: 67"]
202060
[TD="width: 150"]
RESTAURANT 120125
[TD="width: 75"]
120125
[TD="width: 143"]
RESTAURANT
[TD="width: 26"][/TD]
[TD="width: 131"]
LEMONADE SQUASH
[TD="width: 90"]
120.25
[/TR]
[TR]
[TD="width: 62"]
12
[TD="width: 78"]
22-07-16
[TD="width: 45"]
ISS
[TD="width: 67"]
202075
[TD="width: 150"]
RESTAURANT 121255
[TD="width: 75"]
121255
[TD="width: 143"]
RESTAURANT
[TD="width: 26"][/TD]
[TD="width: 131"]
REFRESHMENTS
[TD="width: 90"]
250.48
[/TR]
[TR]
[TD="width: 62"]
13
[TD="width: 78"][/TD]
[TD="width: 45"][/TD]
[TD="width: 67"][/TD]
[TD="width: 150"][/TD]
[TD="width: 75"][/TD]
[TD="width: 143"]
RESTAURANT TOTAL
[TD="width: 26"][/TD]
[TD="width: 131"][/TD]
[TD="width: 90"]
370.73
[/TR]
[TR]
[TD="width: 62"]
14
[TD="width: 78"][/TD]
[TD="width: 45"][/TD]
[TD="width: 67"][/TD]
[TD="width: 150"][/TD]
[TD="width: 75"][/TD]
[TD="width: 143"][/TD]
[TD="width: 26"][/TD]
[TD="width: 131"][/TD]
[TD="width: 90"][/TD]
[/TR]
[TR]
[TD="width: 62"]
15
[TD="width: 78"]
12-06-18
[TD="width: 45"]
PUR
[TD="width: 67"]
202088
[TD="width: 150"]
POOL BAR 121230
[TD="width: 75"]
121230
[TD="width: 143"]
POOL BAR
[TD="width: 26"][/TD]
[TD="width: 131"]
ORANGE SQUASH
[TD="width: 90"]
108.95
[/TR]
[TR]
[TD="width: 62"]
16
[TD="width: 78"]
17-06-18
[TD="width: 45"]
ISS
[TD="width: 67"]
202095
[TD="width: 150"]
POOL BAR 121345
[TD="width: 75"]
121345
[TD="width: 143"]
POOL BAR
[TD="width: 26"][/TD]
[TD="width: 131"]
GRENADINE SYRUP
[TD="width: 90"]
95.45
[/TR]
[TR]
[TD="width: 62"]
17
[TD="width: 78"]
13-07-18
[TD="width: 45"]
PUR
[TD="width: 67"]
202009
[TD="width: 150"]
POOL BAR 122478
[TD="width: 75"]
122478
[TD="width: 143"]
POOL BAR
[TD="width: 26"][/TD]
[TD="width: 131"]
ICE TEA
[TD="width: 90"]
150.45
[/TR]
[TR]
[TD="width: 62"]
18
[TD="width: 78"][/TD]
[TD="width: 45"][/TD]
[TD="width: 67"][/TD]
[TD="width: 150"][/TD]
[TD="width: 75"][/TD]
[TD="width: 143"]
POOL BAR TOTAL
[TD="width: 26"][/TD]
[TD="width: 131"][/TD]
[TD="width: 90"]
354.85
[/TR]
</tbody>[/TABLE]
EXPECTED RESULT
[TABLE="class: cms_table_MsoNormalTable"]
<tbody>[TR]
[TD][/TD]
[TD="width: 101"]
A
[TD="width: 35"]
B
[TD="width: 67"]
C
[TD="width: 149"]
D
[TD="width: 75"]
E
[TD="width: 141"]
F
[TD="width: 26"]
G
[TD="width: 130"]
H
[TD="width: 89"]
J
[/TR]
[TR]
[TD="width: 61"]
9
[TD="width: 101"]
Date
[TD="width: 35"]
TYPE
[TD="width: 67"]
CODE
[TD="width: 149"]
DEPARTMENT/REF.
[TD="width: 75"]
ENTRY #
[TD="width: 141"]
DEPARTMENT
[TD="width: 26"][/TD]
[TD="width: 130"]
DESCRIPTION
[TD="width: 89"]
AMOUNT
[/TR]
[TR]
[TD="width: 61"]
10
[TD="width: 101"][/TD]
[TD="width: 35"][/TD]
[TD="width: 67"][/TD]
[TD="width: 149"][/TD]
[TD="width: 75"][/TD]
[TD="width: 141"][/TD]
[TD="width: 26"][/TD]
[TD="width: 130"][/TD]
[TD="width: 89"][/TD]
[/TR]
[TR]
[TD="width: 61"]
11
[TD="width: 101"]
17-07-16
[TD="width: 35"]
RUR
[TD="width: 67"]
202060
[TD="width: 149"]
RESTAURANT 120125
[TD="width: 75"]
120125
[TD="width: 141"]
RESTAURANT
[TD="width: 26"][/TD]
[TD="width: 130"]
LEMONADE SQUASH
[TD="width: 89"]
120.25
[/TR]
[TR]
[TD="width: 61"]
12
[TD="width: 101"]
22-07-16
[TD="width: 35"]
ISS
[TD="width: 67"]
202075
[TD="width: 149"]
RESTAURANT 121255
[TD="width: 75"]
121255
[TD="width: 141"]
RESTAURANT
[TD="width: 26"][/TD]
[TD="width: 130"]
REFRESHMENTS
[TD="width: 89"]
250.48
[/TR]
[TR]
[TD="width: 61"]
13
[TD="width: 101"]
RESTAURANT TOTAL
[TD="width: 35"][/TD]
[TD="width: 67"][/TD]
[TD="width: 149"][/TD]
[TD="width: 75"][/TD]
[TD="width: 141"][/TD]
[TD="width: 26"][/TD]
[TD="width: 130"][/TD]
[TD="width: 89"]
370.73
[/TR]
[TR]
[TD="width: 61"]
14
[TD="width: 101"][/TD]
[TD="width: 35"][/TD]
[TD="width: 67"][/TD]
[TD="width: 149"][/TD]
[TD="width: 75"][/TD]
[TD="width: 141"][/TD]
[TD="width: 26"][/TD]
[TD="width: 130"][/TD]
[TD="width: 89"][/TD]
[/TR]
[TR]
[TD="width: 61"]
15
[TD="width: 101"]
12-06-18
[TD="width: 35"]
PUR
[TD="width: 67"]
202088
[TD="width: 149"]
POOL BAR 121230
[TD="width: 75"]
121230
[TD="width: 141"]
POOL BAR
[TD="width: 26"][/TD]
[TD="width: 130"]
ORANGE SQUASH
[TD="width: 89"]
108.95
[/TR]
[TR]
[TD="width: 61"]
16
[TD="width: 101"]
17-06-18
[TD="width: 35"]
ISS
[TD="width: 67"]
202095
[TD="width: 149"]
POOL BAR 121345
[TD="width: 75"]
121345
[TD="width: 141"]
POOL BAR
[TD="width: 26"][/TD]
[TD="width: 130"]
GRENADINE SYRUP
[TD="width: 89"]
95.45
[/TR]
[TR]
[TD="width: 61"]
17
[TD="width: 101"]
13-07-18
[TD="width: 35"]
PUR
[TD="width: 67"]
202009
[TD="width: 149"]
POOL BAR 122478
[TD="width: 75"]
122478
[TD="width: 141"]
POOL BAR
[TD="width: 26"][/TD]
[TD="width: 130"]
ICE TEA
[TD="width: 89"]
150.45
[/TR]
[TR]
[TD="width: 61"]
18
[TD="width: 101"]
POOL BAR TOTAL
[TD="width: 35"][/TD]
[TD="width: 67"][/TD]
[TD="width: 149"][/TD]
[TD="width: 75"][/TD]
[TD="width: 141"][/TD]
[TD="width: 26"][/TD]
[TD="width: 130"][/TD]
[TD="width: 89"]
354.85
[/TR]
</tbody>[/TABLE]