Solver - VB macro not working

Dear hubbers,

I have designed a Portfolio of stocks and want solver to loop through the different returns for me.

My wish is to :

1) Click :solve and it first gives me the results for H16.
2) Then it copies and paste B19 in A30 and H16 in B30.
3) Then , it loops by increasing B19 by 1%
4) Do step 1 and 2 and 3 till the Target return becomes say 20%

Unfortunately, the first step is returning an error.

Kindly help

Regards
rcaus