2 datagridviews to 1 excel sheet

This is working , find last row but it is slow

Private Sub copyAlltoClipboard()
DataGridView1.SelectAll()
Dim dataObj As DataObject = DataGridView1.GetClipboardContent()
If dataObj IsNot Nothing Then Clipboard.SetDataObject(dataObj)
End Sub
Private Sub copyAlltoClipboard2()
DataGridView2.SelectAll()
Dim dataObj As DataObject = DataGridView2.GetClipboardContent()
If dataObj IsNot Nothing Then Clipboard.SetDataObject(dataObj)
End Sub

Private Sub Crew2()
copyAlltoClipboard()
Dim xlexcel As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
xlexcel = New Excel.Application
xlexcel.Visible = True
xlWorkBook = xlexcel.Workbooks.Open("C:\weg\Verbruik.xlsx")
xlWorkSheet = xlWorkBook.Worksheets(1)

Dim CR As Excel.Range = xlWorkSheet.Cells(37, 1)
CR.PasteSpecial()


Dim lastRow As Integer = xlWorkSheet.UsedRange.Rows.Count

Dim emptyRow As Integer = lastRow + 3

lastRow = xlWorkSheet.UsedRange.Rows.Count
'This is next emptyRow in the sheet
emptyRow = lastRow + 3
copyAlltoClipboard2()

Dim CR1 As Excel.Range = xlWorkSheet.Cells(emptyRow, 1)
CR1.PasteSpecial()


xlWorkBook.SaveAs("C:\weg\Verbruik1.xlsx")
xlWorkBook.Close()
End Sub

Is there a better way , and not from a database.