Increment Row after paste from clipboard

Help please... I am wanting to put the data from a datagridview into an excel spread sheet.
I can to the headers and all correectly and they get placed on Row 2

However in my datagrid loop

RowNum = 3
NumRecs = DataGridView1.Rows.Count.ToString()
Rnum = 0
For Each r In DataGridView1.Rows
TheRange = "A" + (RowNum.ToString & ",Z")
xlSheet.Range(TheRange, TheRange).Select()

WrkStr = r.Cells("NameOut").Value.ToString()
WrkStr = WrkStr + vbTab + r.Cells("EMAilOut").Value.ToString()
WrkStr = WrkStr + vbTab
Clip.SetDataObject(WrkStr)
xlSheet.Paste(misValue, misValue)
RowNum = RowNum + 1
Rnum = Rnum + 1
If Rnum = (NumRecs - 1) Then
Exit For
End If
Next
xlRange = xlSheet.Columns
xlRange.AutoFit()

EVERYLINE line added is in row 1 ..... How do I get it to go row 4 thru row xxxxx ?????

Thanks

gollnick

you can try like

Code:

---

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