Odtnhj

So I have an Excel file, that I want to export some of the rows to another Excel file, my problem is that I have a row that is like:

1 
1 
1 
2 
2 
2 
3 
3 
3 
1 
1 
1

And I want to export from the first row with number one to the last row with number 3, and after exportation delete that same lines.

So far i have this.

Private Sub export2()
folha = exportform.Label14.Caption
On Error GoTo ErrHandler
Application.ScreenUpdating = False


Dim src As Workbook

' ABRIR EXCEL
Set src = Workbooks.Open("U:MecânicaProduçãoOEEOEE ( FULL LOG )FRSFRS_DADOS.xlsx", True, False)
WS_Count = src.Worksheets.Count
 For o = 1 To WS_Count
 src.Worksheets(o).Unprotect password:="registoOEE"
 Next o

lastsrc = src.Worksheets("DADOS").Range("A65536").End(xlUp).Row
last = Application.ThisWorkbook.Worksheets(folha).Range("A65536").End(xlUp).Row




Dim last, I As Integer
Dim turno As String

Sheets(folha).Select

For I = 2 To last
'If application.ThisWorkbook.Worksheets(folha).Cells(last, 61)














Next I




ErrHandler:
Application.EnableEvents = True
Application.ScreenUpdating = True







 For o = 1 To WS_Count
 src.Worksheets(o).Protect password:="registoOEE"
 Next o


 Application.DisplayAlerts = False 'IT WORKS TO DISABLE ALERT PROMPT

 'SAVES FILE USING THE VARIABLE BOOKNAME AS FILENAME
 src.Save

 Application.DisplayAlerts = True 'RESETS DISPLAY ALERTS

' CLOSE THE SOURCE FILE.
src.Close True ' FALSE - DON'T SAVE THE SOURCE FILE.
Set src = Nothing


fim:
End Sub

I've edited so you can see what code i have already, hope it helps.