Как заполнить Лист данными из второго Листа

Sub test()
Z = 4
'l - 1ûé ëèñò 70%
Worksheets(2).Select
lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
For i = 5 To lLastRow
    If Worksheets(2).Cells(i + 1, 4) => 70 Then
   
jump1: If Worksheets(1).Cells(Z, 2).Value = "" Then
            Worksheets(2).Cells(i + 1, 4).Copy Worksheets(1).Cells(Z, 2)
        Else: Z = Z + 1: GoTo jump1
         End If
       
    End If
Next i
 
 
'69%
Z = 4
For i = 5 To lLastRow
    If Worksheets(2).Cells(i + 1, 4) >= 61 And Worksheets(2).Cells(i + 1, 4) <= 69 Then
   
jump2: If Worksheets(1).Cells(Z, 3).Value = "" Then
            Worksheets(2).Cells(i + 1, 4).Copy Worksheets(1).Cells(Z, 3)
        Else: Z = Z + 1: GoTo jump2
         End If
       
    End If
Next i
'30%
Z = 4
For i = 5 To lLastRow
    If Worksheets(2).Cells(i + 1, 4) < 61 Then
   
jump3: If Worksheets(1).Cells(Z, 4).Value = "" Then
            Worksheets(2).Cells(i + 1, 4).Copy Worksheets(1).Cells(Z, 4)
        Else: Z = Z + 1: GoTo jump3
         End If
       
    End If
Next i
End Sub

Sub pr()
    Dim x As Range, k&
    For Each x In Range("d4", Cells(Rows.Count, "D").End(xlUp))
        Select Case x.Value
            Case Is >= 70: k = 2
            Case Is > 60: k = 3
            Case Else: k = 4
        End Select
        Sheets("1").Cells(x.Row, k) = x
    Next
End Sub