How to insert blank cells randomly on rows

How In Excel vba I can insert blank cells randomly in each rows (shift cell to right) with parameters to fix the number of cells inserted. There's a lot of rows