Bir Makronun tamamlanması konusunda yardım(ilgili verilerin sekme dağıtımı)

[imyourfate]

Arkadaşlar öncelikle iyi akşamlar diler ve bir konuda yardımınızı rica ederim.
Ekli dosyada rezervasyon sekmesinde yer alan dataların ilgili diğer sekmelere dağıtımını yapmak istiyorum mevcut bir kod kullanıyorum ve bu verileri tek sayfaya dağıtabiliyorum fakat Rezervasyon sekmesi D sütünunda yer alan kodlara göre diğer sekmelere dağıtılması gerekiyor bu diğer sekmedede gideceği adres Rezervasyon sekmesi E sütununda yazan acenta koduna göre.
Yardımlarınız için şimdiden teşekkür eder hayırlı akşamlar dilerim

 

[imyourfate]

Vakti olan arkadaşlardan yardım rica ederim
Teşekkürler

 

[imyourfate]

Arkadaşlar aşağıda yer alan koda nasıl bir ekleme yaparak ekli dosya D sütunun da yer alan isme göre ''SPLV'' ilgili diğer sayfaya aktarabiliriz? An itibariyle SPLV sayfasına dağıtabiliyorum
Tekrar teşekkür ederim

Sub Run()

Set R = Sheets("Rezervasyon")
Set F = Sheets("SPLV")
Dim GTR As Date, CTR As Date
FTEMIZ

'Rezer Bak---------------------------------------------------
RS = WorksheetFunction.CountA(R.Range("E7:E65000"))
For I = 1 To RS + 6
ODA = Trim(R.Cells(I + 6, 5).Value)
If ODA = "" Then GoTo DEVAM
If ODA = "JET2HOLIDAYS" Then S = 1: GoTo YAZ
If ODA = "TUI-RUS" Then S = 2: GoTo YAZ
If ODA = "TUI-UA" Then S = 3: GoTo YAZ
If ODA = "ANEX-RUS" Then S = 4: GoTo YAZ
If ODA = "DERTOUR-CZ" Then S = 5: GoTo YAZ
If ODA = "ETS" Then S = 6: GoTo YAZ
If ODA = "HYDRO" Then S = 7: GoTo YAZ
If ODA = "CALLCENTER-TR" Then S = 8: GoTo YAZ
If ODA = "KEYF-AVR" Then S = 9: GoTo YAZ
If ODA = "CIS & MA" Then S = 10: GoTo YAZ
If ODA = "DLX" Then S = 11: GoTo YAZ
If ODA = "DLX" Then S = 12: GoTo YAZ
If ODA = "DLX" Then S = 13: GoTo YAZ
If ODA = "DLX" Then S = 14: GoTo YAZ
C = MsgBox(Trim(I + 6) + " Satırda Bilinmeyen Oda Bilgisi...", 56, "Oda Hakkında")
Exit Sub
'------------------------------------------------------------
YAZ:
GTR = Format(R.Cells(I + 6, 6).Value, "dd.mm.yyyy")
CTR = Format(R.Cells(I + 6, 7).Value, "dd.mm.yyyy")

For K = GTR To CTR - 1
A = DatePart("m", K)
G = DatePart("d", K)
X = A * 16 - 12
F.Cells(X + S, G + 2).Value = F.Cells(X + S, G + 2).Value + 1
Next K

DEVAM:
Next I

End Sub


Public Sub FTEMIZ()
Set F = Sheets("SPLV")
For I = 1 To 12
CL = "C" + Trim(I * 16 - 11) + ":AZ" + Trim(I * 16 + 3)
F.Range(CL).ClearContents
Next I
End Sub