Increment Row after paste from clipboard

[westconn1]

you can try like

RowNum = 3
NumRecs = DataGridView1.Rows.Count.ToString()
Rnum = 0
For Each r In DataGridView1.Rows
      WrkStr = r.Cells("NameOut").Value.ToString()
      WrkStr = WrkStr + vbTab + r.Cells("EMAilOut").Value.ToString()
      WrkStr = WrkStr + vbTab
      Clip.SetDataObject(WrkStr)
      xlSheet.cells(rownum, 1).Pastespecial
     RowNum = RowNum + 1
     Rnum = Rnum + 1
     If Rnum = (NumRecs - 1) Then
          Exit For
    End If
Next
xlRange = xlSheet.Columns
xlRange.AutoFit()

though there are several variables that i am unsure what are used for