Hi, my data is something like below

1 ABC Pte Ltd $80
2 ABC Pte Ltd $99
3 ABC Pte Ltd $100

1 PYK Pte Ltd $91
2 PYK Pte Ltd $70

1 HIH Pte Ltd $10

1 GGG Pte Ltd $60

I need to insert a page break for different company. (Which is to insert the page break at the cell that contain the number 1). Lets assume all the number is in Coloumn A, company name in Coloumn B and amount in Column C.

How does the code in VB look like?