Scripts runs but will not add data to 2nd line or 3 rd lines in excel

Hello:

I have a script that I have put together/ borrowed.  The script runs and gathers the information via wmi. When it writes to the excel sheet it id's the next active cell but will not write data to it.

Here is a copy of the script.

 On Error Resume Next

Set WshNetwork = WScript.CreateObject("WScript.Network")

strComputer = "."

Const xlCellTypeLastCell = 11

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\book1.xls")

objExcel.Visible = True

Set objRange = objWorksheet.UsedRange
objRange.SpecialCells(xlCellTypeLastCell).Activate


intNewRow = objExcel.ActiveCell.Row + 1
strNewCell = "A" &  intNewRow
objExcel.Range(strNewCell).Activate


' Get Computer System Details
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem In colItems


'ws.Cells(2,1).Value = "" 
    objWorksheet.Cells(strNewCell,2).Value = "" & objItem.UserName
    objWorksheet.Cells(strNewCell,3).Value = "" & objItem.Manufacturer
    objWorksheet.Cells(strNewCell,4).Value = "" & objItem.Model
Next
Set objWMIService = Null
Set colItems = Null
'
'Get BIOS Details
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
For Each objItem In colItems
objWorksheet.Cells(A,5).Value = "" & objItem.SerialNumber 
Next
Set objWMIService = Null
Set colItems = Null
'
' Get CPU Details
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)
For Each objItem In colItems
objWorksheet.Cells(A,6).Value = "" & objItem.Name 
objWorksheet.Cells(A,7).Value = "" & objItem.CurrentClockSpeed 
Next
Set objWMIService = Null
Set colItems = Null
'
' Get OS Details
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem In colItems
    objWorksheet.Cells(A,8).Value = "" & objItem.Caption
    objWorksheet.Cells(A,9).Value = "" & objItem.CSDVersion 
    objWorksheet.Cells(A,10).Value = "" & FormatNumber(objItem.TotalVisibleMemorySize/1024,0)   
Next
Set objWMIService = Null
Set colItems = Null
'
' Get & Writeout current Date
objWorksheet.Cells(A,11).value = "" & Day(Now) & "-" & Month(Now) & "-" & Year(Now)

Please let me know if you can see what I am missing..

Thanks