Sub KODMOD()
    Application.ScreenUpdating = False
    
    For i = 2 To Cells(Rows.Count, "C").End(3).Row
        If Cells(i, "E") = "" And Cells(i, "F") <> "" And Cells(i, "G") = "" Then
            Cells(i, "G") = Cells(i + 1, "G")
      End If
      
    Next i
    i = Empty
      
    For i = Cells(Rows.Count, "C").End(3).Row To 2 Step -1
         If Cells(i, "E") <> "" And Cells(i, "F") = "" And Cells(i, "G") = "" Then
            Cells(i, "G") = Cells(i + 1, "G")
       End If
         Next i
         i = Empty
    
    MsgBox "B i t t i "
        Application.ScreenUpdating = True
End Sub