sSql = "select * from [Sayfa1$]"
kodunu sSql = "select * from [Sayfa1$] where f1 Is Not Null"
ile değiştirip deneyebilirsinizyada ü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) & "'"