kodları dikkatli incelemiyorsunuz daha da önemlisi anlamaya da çalışmıyorsunuz bence:
sorular HdfSht'e kaydediliyor

HdfSyf = IIf(Sayfa4.OptionButton1 = True, Sayfa4.OptionButton1.Caption, Sayfa4.OptionButton2.Caption)

Set HdfSht = ThisWorkbook.Sheets(HdfSyf)

yukardaki kodda siz 2 farklı sayfaya istediğiniz için sayfa seçiminiz için option butonu kontrol ediyordu, eğer tek sayfa varsa o kontole gerek yok doğrudan sayfa adının girilmesi yeterli

Set HdfSht = ThisWorkbook.Sheets("SayfaAdı")

çok zor değil aslında ama bence "nasıl olsa yapan var" düşüncesiyle kodları anlamak için pek uğraşmıyorsunuz