How to shift cells left by VBA?

[NewLFC]

I have the report in which I want to delete some cells to the left as shown in the excel file

Original report

Expected result

Ordered by

owner

Order number

Ordered by

owner

Order number

Units Under Status "O"

Units Under Status "O"

8​

Units at Bonded Ware House

8​

Units at Bonded Ware House

1​

THANI-COOC

TLAQW

227501MR0BA3CD700151747229330

1​

THANI-COOC

TLAQW

227501MR0BA3CD700151747229330

2​

THANI-COOC

TLAQW

47120MR0BA3FS50112850548416

2​

THANI-COOC

TLAQW

47120MR0BA3FS50112850548416

3​

THANI-COOC

TLAQW

116289MR0KB8CD501214980118510

3​

THANI-COOC

TLAQW

116289MR0KB8CD501214980118510

4​

THANI-COOC

TLAQW

795069MR2B13F3901071113798709

4​

THANI-COOC

TLAQW

795069MR2B13F3901071113798709

5​

THANI-COOC

TLAQW

244859JTMAA7BJ104018824248221

5​

THANI-COOC

TLAQW

244859JTMAA7BJ104018824248221

6​

THANI-COOC

TLAQW

509980JTMAA7BJX04018028513496

6​

THANI-COOC

TLAQW

509980JTMAA7BJX04018028513496

7​

THANI-COOC

TLAQW

676088MR0KB8CD201215326679710

7​

THANI-COOC

TLAQW

676088MR0KB8CD201215326679710

8​

THANI-COOC

TLAQW

385310MR0KB8CD101215494387482

8​

THANI-COOC

TLAQW

385310MR0KB8CD101215494387482

11​

Units at BSD

11​

Units at BSD

1​

THANI-COOC

TLAQW

200130MR0BA3CD700151747202383

1​

THANI-COOC

TLAQW

200130MR0BA3CD700151747202383

2​

THANI-COOC

TLAQW

715841MR0BA3FS501128505717328

2​

THANI-COOC

TLAQW

715841MR0BA3FS501128505717328

3​

THANI-COOC

TLAQW

515069MR0KB8CD501214980517558

3​

THANI-COOC

TLAQW

515069MR0KB8CD501214980517558

4​

THANI-COOC

TLAQW

609158MR2B13F3901071113611401

4​

THANI-COOC

TLAQW

609158MR2B13F3901071113611401

5​

THANI-COOC

TLAQW

512040JTMAA7BJ104018824514155

5​

THANI-COOC

TLAQW

512040JTMAA7BJ104018824514155

6​

THANI-COOC

TLAQW

163305JTMAA7BJX04018028166650

6​

THANI-COOC

TLAQW

163305JTMAA7BJX04018028166650

7​

THANI-COOC

TLAQW

719652MR0KB8CD201215326721564

7​

THANI-COOC

TLAQW

719652MR0KB8CD201215326721564

8​

THANI-COOC

TLAQW

511616MR0KB8CD101215494513687

8​

THANI-COOC

TLAQW

511616MR0KB8CD101215494513687

9​

THANI-COOC

TLAQW

513390MR0KB8CD701215516515016

9​

THANI-COOC

TLAQW

513390MR0KB8CD701215516515016

10​

THANI-COOC

TLAQW

681865MR0KB8CD801215427685204

10​

THANI-COOC

TLAQW

681865MR0KB8CD801215427685204

11​

THANI-COOC

TLAQW

92113MR0KB8CD80121545893914

11​

THANI-COOC

TLAQW

92113MR0KB8CD80121545893914

Units on Status "A"

Units on Status "A"

3​

Units at The ATN

3​

Units at The ATN

1​

THANI-COOC

TLAQW

553416MR0BA3CD800155130556385

1​

THANI-COOC

TLAQW

553416MR0BA3CD800155130556385

2​

THANI-COOC

TLAQW

667209MHKAA1BA00J044402670823

2​

THANI-COOC

TLAQW

667209MHKAA1BA00J044402670823

3​

THANI-COOC

TLAQW

271658MR2KZAAG300043353274138

3​

THANI-COOC

TLAQW

271658MR2KZAAG300043353274138

10​

Units at SYSRT

10​

Units at SYSRT

1​

THANI-COOC

TLAQW

560946MHKAA1BA00J040107563624

1​

THANI-COOC

TLAQW

560946MHKAA1BA00J040107563624

2​

THANI-COOC

TLAQW

757296MR0BA3CD000156563759217

2​

THANI-COOC

TLAQW

757296MR0BA3CD000156563759217

3​

THANI-COOC

TLAQW

768534MR0BA3CD500156574769786

3​

THANI-COOC

TLAQW

768534MR0BA3CD500156574769786

4​

THANI-COOC

TLAQW

616166MR0JB8CD502155113619348

4​

THANI-COOC

TLAQW

616166MR0JB8CD502155113619348

5​

THANI-COOC

TLAQW

774677MR2KZAAG800041775776637

5​

THANI-COOC

TLAQW

774677MR2KZAAG800041775776637

6​

THANI-COOC

TLAQW

340450JTMAA7BJ704020030343661

6​

THANI-COOC

TLAQW

340450JTMAA7BJ704020030343661

7​

THANI-COOC

TLAQW

474652MHKAA1BAX0J044293476614

7​

THANI-COOC

TLAQW

474652MHKAA1BAX0J044293476614

8​

THANI-COOC

TLAQW

357787MHKE8FF3V0K019126360179

8​

THANI-COOC

TLAQW

357787MHKE8FF3V0K019126360179

9​

THANI-COOC

TLAQW

224744MHKE8FF3V0K019147227298

9​

THANI-COOC

TLAQW

224744MHKE8FF3V0K019147227298

10​

THANI-COOC

TLAQW

302895MR0BA3CD100158354306842

10​

THANI-COOC

TLAQW

302895MR0BA3CD100158354306842

 

[footoo]

Try this :

Sub v()
Dim a As Range
For Each a In [B:B].SpecialCells(xlCellTypeConstants, 1).Offset(0, -1).Areas
    a.Delete Shift:=xlToLeft
Next
End Sub