Aşağı ve Yukarı Kod tamamlama

[igultekin2000]

http://s6.dosya.tc/server6/oxdov3/CEK_TESBIT.rar.html

epey uğraştım ama çözüm bulamadı, oluşan listede hem aşağı , hem yukarı kod yazdırmaya çalışıyorum. E F G sütünları ilişkili, E sütünü dolu ise G sütünundaki kodun aşağı kopyalanması, F sütünu dolu ise G sütünündaki kodun yukarı doğru kopyalama şeklinde

makro ile olmasa bile excelle de işimi görebilirim.
Sub islem_KOD_TAMAMLA()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("data")
For i = 2 To s1.Range("A65536").End(xlUp).Row
If s1.Cells(i, "g") = "" Then
For k = s1.Range("g65536").End(xlUp).Row To i + 1 Step -1
If s1.Cells(k, "g") <> "" Then
s1.Cells(i, "g") = s1.Cells(k, "g")
End If
Next k
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub
şu güzelim kodda oynama yaparak benim soruna çözüm bulunabilir mi ?
Saygılarımla