Elimde EXCEL VBA ile yazılmış bir kod var. Kodum; Sub KISIM2()
"
    Dim wsOnceki As Worksheet
    Dim wsKisim As Worksheet
    Dim OncekiHucresi As Range
    Dim KisimHucresi As Range
    Dim sonSatirOnceki As Long
    Dim sonSatirKisim As Long
    Dim i As Long, j As Long, k As Long
    Dim bulunanSatir As Long
    Dim bulunanSutun As Long
    Dim Granulkisim1 As Variant
    Dim Fbdkisim1 As Variant

    Set wsOnceki = ThisWorkbook.Sheets("ONCELIK")
    Set wsKisim = ThisWorkbook.Sheets("KISIM")

    sonSatirOnceki = wsOnceki.Cells(wsOnceki.Rows.Count, "E").End(xlUp).Row
    sonSatirKisim = wsKisim.Cells(wsKisim.Rows.Count, "D").End(xlUp).Row

    For i = 2 To sonSatirOnceki
        Set OncekiHucresi = wsOnceki.Cells(i, "E")
        If Not IsEmpty(OncekiHucresi) Then
            For j = 1 To sonSatirKisim
                Set KisimHucresi = wsKisim.Cells(j, "D")
                If OncekiHucresi.Value = KisimHucresi.Value Then
                    bulunanSatir = j

                    ' İlk arama (G sütunu için)
                    Dim arananDeger As Variant
                    arananDeger = wsOnceki.Cells(i, "G").Value
                    For k = 1 To wsKisim.Cells(2, wsKisim.Columns.Count).End(xlToLeft).Column
                        If arananDeger = wsKisim.Cells(2, k).Value Then
                            bulunanSutun = k

                            ' Kesişen hücredeki değeri Granulkisim1 adında bir değişkene kaydet
                            Granulkisim1 = wsKisim.Cells(bulunanSatir, bulunanSutun).Value
                            MsgBox "Granulkisim1 değeri: " & Granulkisim1
                            Exit For
                        End If
                    Next k

                    ' İkinci arama (H sütunu için)
                    arananDeger = wsOnceki.Cells(i, "H").Value
                    For k = 1 To wsKisim.Cells(2, wsKisim.Columns.Count).End(xlToLeft).Column
                        If arananDeger = wsKisim.Cells(2, k).Value Then
                            bulunanSutun = k

                            ' Kesişen hücredeki değeri Fbdkisim1 adında bir değişkene kaydet
                            Fbdkisim1 = wsKisim.Cells(bulunanSatir, bulunanSutun).Value
                            MsgBox "Fbdkisim1 değeri: " & Fbdkisim1
                            Exit For
                        End If
                    Next k

                    Exit For
                End If
            Next j
        Else
            Exit For
        End If
    Next i
End Sub
"
Bu kodda değişiklik yapmanı istiyorum. "Granulkisim1" mesajını artık göstermesin. Bunun yerine "Granulkisim1" deki değeri "ONCELIK" sayfasında "E" sütununda hangi satırdaki veriyi döngüde arattıysa aynı satırın "A" sütunundaki hücreye bu değeri kaydetsin. Yani her döngüde "Granulkisim1" e kaydettiği değeri aynı satırda "A" sütununa yazsın. Düzenledikten sonra tüm kodu yazar mısın?