sSql = "select * from [Sayfa1$]" 

kodunu

sSql = "select * from [Sayfa1$] where f1 Is Not Null"

ile değiştirip deneyebilirsiniz
yada üsttek koda dokunmazsınız
ama değerlerin belirtildiği satırı değiştirirsiniz

degerler = degerler & ", '" & rs.Fields(1) & "'"

yerine

If Len(Nz(rs.Fields(0), "")) > 0 Then degerler = degerler & ", '" & rs.Fields(1) & "'"