Hi fhad.shabbir
I have never tried to do this in VBS, but I assume it will be something in the line of the following:
xlSheet.cells(1,1).Pictures.Insert(pPath) //Where pPath= URL of Picture
I did not have time to try this, so please let us know if this worked or if you found another solution.