I found it my self. Heres an example:
Dim intIndex, iRow
iRow=0
Do While objXL.ActiveCell.Offset(iRow,0).Value<>""
iRow = iRow+1
Loop
intIndex = iRow
Sub Show(strDate, strServer, strVolName, strAvDisk, strTotUsable, strPercentFree)
objXL.Cells(intIndex, 1).Value = strDate...