How to stop looping when it returns to the start of the loop

[Iceman63]

hi folks,
I wrote the below code to loop through a column on a sheet and copy the row information and paste it on the destination sheet. When I run the code, it loops and pastes the information on the destination sheet, but it continues to loop and overwrites the information on the destination sheet. How do I stop this, and tell the code to stop when it is done? Thanks

Option Explicit

Sub Transfer()
Dim i As Long, j As Long, lastrow1 As Long, lastrow2 As Long
Dim myname As String

lastrow1 = Sheets("Supervisor Fri").Range("A" & Rows.Count).End(xlUp).Row

    For i = 14 To lastrow1
        myname = Sheets("Supervisor Fri").Cells(i, "a").Value

    Sheets("Shop allocation").Activate
        lastrow2 = Sheets("Shop allocation").Range("a" & Rows.Count).End(xlUp).Row

For j = 11 To lastrow2
    If Sheets("Shop allocation").Cells(j, "A").Value = myname Then
        Sheets("Supervisor Fri").Activate
        Sheets("Supervisor Fri").Range(Cells(i, "c"), Cells(i, "f")).Copy
        Sheets("Shop allocation").Activate
        Sheets("Shop allocation").Range(Cells(j, "b"), Cells(j, "E")).Select

ActiveSheet.Paste
            End If

        Next j
        Application.CutCopyMode = False

    Next i
        Sheets("Supervisor Fri").Activate
        Sheets("Supervisor Fri").Range("A14").Select




End Sub

 

[Fluff]

What is the error message?

 

[Iceman63]

autofilter method of range class failed

 

[Fluff]

Do you have any merged cells?
Is the sheet protected?

 

[Iceman63]

Sheet is not protected and only merged cells are above the data on Supervisor Fri..allocation sheet has no merged cells in the destination

 

[Fluff]

Is your data in a structured table?
Do you have any filters already set on the sheet?

 

[Iceman63]

Thanks a lot Fluff..it was the table layout, adjusted it and good to go

 

[Fluff]

Glad you sorted it & thanks for the feedback