should be
 Worksheets("Buyer to Issued").Cells(b + 1, 1).EntireRow.PasteSpecial xlValues