Loop ile rs.Close arasına alttaki kodları ekleyerek dener misiniz?
Excl.Range("A" & i + 1).Value = " Pers.Md. " & Dlookup ("ADI_SOYADI", "IMZA", "YETKISI='PATRON-2'")
Excl.Range("G" & i + 3).Value = Dlookup ("ADI_SOYADI", "IMZA", "YETKISI='PATRON-1'")
Excl.Range("G" & i + 4).Value = Dlookup ("GOREVI", "IMZA", "YETKISI='PATRON-1'")
Excl.Range("G" & i + 5).Value = Dlookup ("YETKISI", "IMZA", "YETKISI='PATRON-1'")
Excl.Range("G" & i + 3, "G" & i + 5).HorizontalAlignment = xlCenter