Need help with creating VBA for creating lottery pairs

Sheet1

Cell A1 = 1

Cell B1 = 2

Cell C1 = 3

Cell D1 = 4

Cell E1 = 5

I would like to know how to generate pairs other than using formulas for placing the pairs for the above set starting in cell G1

Cell G1 = 1,2

Cell H1 = 1,3

Cell I1 = 1,4

Cell J1 = 1,5

Cell K1 = 2,3

Cell L1 = 2,4

Cell M1 = 2,5

Cell N1 = 3,4

Cell O1 = 3,5

Cell P1 = 4,5

My random list of sets would would be around 100 in cell range A1 through E1 down to A100:E100

Thank you in advance!!