VBScript with if condition

I am new in VBScript and I have some difficulties in find a code that works correctly.
I would like to set a condition with count the rows in a excel file and do a transaction if number of lines il more than one.
I created this code:

If Not IsObject(application) Then
Set SapGuiAuto = GetObject("SAPGUI")
Set application = SapGuiAuto.GetScriptingEngine
End If
If Not IsObject(connection) Then
Set connection = application.Children(0)
End If
If Not IsObject(session) Then
Set session = connection.Children(0)
End If
If IsObject(WScript) Then
WScript.ConnectObject session, "on"
WScript.ConnectObject application, "on"
End If
'creare condizione if se non ci sono materiali da estrarre

dim RigheFiltrate
Dim foglio

filePath = "C:\Data\SapScript\ZMMLTA\ZMMLTA.xlsm"
Set EXC = CreateObject("Excel.Application")
Set ObjWKB = EXC.Workbooks.Open(filepath)

set objsht = objwkb.sheets(1)
set foglio = ActiveSheet.ListObjects

RigheFiltrate = ActiveSheet.ListObjects("ZMMLTA").Range.SpecialCells(xlCellTypeVisible).Rows.Count

IF RigheFiltrate > 1 then

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").text = "/nzmmlta"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/btn%_SO_MATNR_%_APP_%-VALU_PUSH").press
session.findById("wnd[0]/usr/btn%_SO_MATNR_%_APP_%-VALU_PUSH").press
session.findById("wnd[0]/usr/ctxtSO_WERKS-LOW").text = Plant
session.findById("wnd[0]/usr/ctxtSO_MATNR-LOW").setFocus
session.findById("wnd[0]/usr/ctxtSO_MATNR-LOW").caretPosition = 0
session.findById("wnd[0]/usr/btn%_SO_MATNR_%_APP_%-VALU_PUSH").press
session.findById("wnd[1]/tbar[0]/btn[16]").press
session.findById("wnd[1]/tbar[0]/btn[24]").press
session.findById("wnd[1]/tbar[0]/btn[8]").press
session.findById("wnd[0]/usr/ctxtSO_AUTET-LOW").text = ""
session.findById("wnd[0]/usr/ctxtSO_AUTET-HIGH").text = ""
session.findById("wnd[0]/usr/ctxtSO_KDATE-LOW").setFocus
session.findById("wnd[0]/usr/ctxtSO_KDATE-LOW").caretPosition = 0
session.findById("wnd[0]").sendVKey 2
session.findById("wnd[1]/usr/cntlOPTION_CONTAINER/shellcont/shell").setCurrentCell 1,"TEXT"
session.findById("wnd[1]/usr/cntlOPTION_CONTAINER/shellcont/shell").selectedRows = "1"
session.findById("wnd[1]/usr/cntlOPTION_CONTAINER/shellcont/shell").doubleClickCurrentCell
session.findById("wnd[0]/usr/ctxtSO_KDATE-LOW").text = Date
session.findById("wnd[0]/usr/ctxtSO_KDATE-LOW").caretPosition = 10
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").setCurrentCell -1,""
session.findById("wnd[0]/usr/cntlCONTAINER/shellcont/shell").selectAll
session.findById("wnd[0]/tbar[1]/btn[2]").press


END IF


EXC.Run "Update material"
EXC.Visible = True


The first problem is that I am not able to set ActiveSheet.ListObjects
Somebody can help me please?
Thank you in advance