vba - Using userform and if conditions to select values and paste them -

i have userform works okay. want make report using userform selected values. tried , gives me no error, doesn't paste value. guess there problem if conditions.... don't know how make these question more clear..

 = 0 listbox2.listcount - 1     if listbox2.selected(i)         dim j integer          dim sizeofplayerguesslist integer          sizeofplayerguesslist = worksheets("info").cells.specialcells(xllastcell).row         j = 1 cells(sizeofplayerguesslist, 1).end(xlup).row               if worksheets("info").range("b1").offset(j, 0).value = listbox2.selected(i)                 worksheets("info").range("b1").offset(j, 0).entirerow.copy                 dim p string                 p = worksheets("info").range("b1").offset(j, -1).value                 activesheet.range("a1").select                 activesheet.range("a:a")                     set k = .find(p, lookin:=xlvalues)                     if k nothing                         fila = 2                         while cells(fila, 1).value <> ""                             fila = fila + 1                         wend                         cells(fila, 1).pastespecial xlpastevalues                     end if                  end              end if         next j     end if next