Yoğunluk nedeniyle örneğinizi çok detaylı inceleme fırsatım olmadı ancak;
sonB ile son satırı bulup ardından

excl.Range("B" & sonB) = Rs2(0) 

excl.Range("B" & sonB + 1) = Rs2(2) 

ile kayıtlarınızı aktarıyorsunuz.
Burada dikkat etmeniz gereken sonB ile bulduğunuz son satırdan itibaren sadece 1 satır veri kayıt ekliyorsanız sonB / sonB + 1 sorun çıkartmaz ancak aktardığınız veri birkaç satır ise her veri setinin akarımından önce sonB bulmanız gerekir. Zira kod ilerlerken sonB ataması yaptığında kaç satır veri eklerseniz ekleyin bir sonraki sonB+1 de bulduğu sonB üzerinden işlem yapıp üstüne yazar. Ayrı ayrı yazılması gerekli ise her veriseti aktarımından önce son satırı buldurmanız gerekli.