Строки l oop в петлю столбцов

Question

Я пытаюсь l oop от строк к столбцам с другим листом. Из DATA проверьте лист на наличие двух операторов. Сначала я проверяю [Тип], а затем [Серия]. После получения значения из диапазона [Type] и диапазона [Series] скопируйте значение диапазона [Result] в Result в соответствии с листом DATA значения диапазона [Part]. Я хочу получить такой результат [Result].

Я пытаюсь использовать какой-то код, но он не работает должным образом. Пожалуйста, помогите мне исправить мой код. И мне очень жаль мой бедный Энгли sh.

Option Explicit

Private Sub Result_Click()

Dim DATA As Worksheet: Set DATA = Worksheets("DATA")
Dim Result As Worksheet: Set Result = Worksheets("Result")

Dim i As Long
Dim j As Long: j = Worksheets("DATA").Cells(Rows.Count, 2).End(xlUp).Row

Dim k As Long

For i = 3 To j

    With DATA
    
        If Cells(i, 2).Value = Worksheets("Result").Range("B4").Value Then
        
            If Cells(i, 3).Value = Worksheets("Result").Range("C2").Value Then
                                        
                    For k = 4 To 32
                        
                        Worksheets("Result").Cells(k, 3).Resize(, 4).Value = Cells(i, 5).Value
                        
                        i = i + 4
        
                    Next k
            End If
                
        End If
        
    End With

Next i

End Sub