Write a sub ( sub rnd_Nums) which appends a random number (between 1 and 4 inclusive) of cells with a random value (between 1 and 20 inclusive) to the end of the list of numbers in column A. when the...

Write a sub ( sub rnd_Nums) which appends a random number (between 1 and 4 inclusive) of cells with a random value (between 1 and 20 inclusive) to the end of the list of numbers in column A.

1. when the workbook is opened:
   
   
   
   1. Select worksheet B
   
   
   2. Call the sub rnd_Nums
   
   
   
   

Please solve in Excel VBA!!