Please suggest on below vba code, which steps can be remove/omit to run more faster : I wrote below vba coding for automation purpose. But could you suggest me which steps can i remove to run more faster.

    Sub listof()
    LQCC = Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row - 1
    ytqcl = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row - 1
    tr = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row - 1
    tqcp = Sheets(1).Cells(Rows.Count, 6).End(xlUp).Row - 1
    ssel = Int(tr / tqcp)
    Dim ListofQCUsers() As Variant
    ReDim ListofQCUsers(LQCC) As Variant
    For y = 1 To UBound(ListofQCUsers)
    ListofQCUsers(y) = Range("f" & y + 1).Value
    Next y
    sampleselection = 0
    If ListofQCUsers(UBound(ListofQCUsers)) = Range("a2").Value Then
    Range("f2").Value = ListofQCUsers(UBound(ListofQCUsers))
    Range("f" & LQCC + 1).Value = ListofQCUsers(1)
    For y = 1 To UBound(ListofQCUsers)
    ListofQCUsers(y) = Range("f" & y + 1).Value
    Next y
    End If
    Range("f2", "f" & LQCC + 1).Delete
    For Z = ytqcl To 1 Step -1
    For x = 1 To UBound(ListofQCUsers)
    For d = 1 To ssel And Z <> 0
    If Z > 0 Then
    If ListofQCUsers(x) <> Range("a" & Z).Offset(1, 0).Value Then
    LSN = Sheets(3).Cells(Rows.Count, 1).End(xlUp).Row + 1
    Range("a" & Z).Offset(1, 0).Resize(1, 3).Copy
    Sheets(3).Range("a" & LSN).PasteSpecial xlPasteAll
    Sheets(3).Range("a" & LSN).Value = ListofQCUsers(x)
    Range("a" & Z).Offset(1, 0).Resize(1, 3).Delete
    sampleselection = sampleselection + 1
    End If
    Z = Z - 1
    End If
    Next d
    sampleselection = 1
    Z = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row - 1
    If x = 1 Then
    Exit Sub
    End If
    Next x
    ytqcl = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row - 1
    Next Z
    ytqcl = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    Range("a2", "a" & ytqcl).Resize(1, 3).EntireRow.Delete
    End Sub


I want to assign processed claims for qc to different persons i.e., process person should not get the same claim for to do qc. 

Above code giving 100% accurate data but i want to know where which steps are not required again and again.