how to fix this VBA code

i am trying to put this in array of cells but it overwrites other values

i want the objQuickFix headers to appear in Columns

like this Computer:   "Description: " "Hot Fix ID: "  as header of columns and then the data to put in rows.

i tried the below code but it overwrites the previous data and it is a mess.

 Sub Test()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colQuickFixes = objWMIService.ExecQuery _
    ("Select * from Win32_QuickFixEngineering")
 
For Each objQuickFix In colQuickFixes
    Cells(1, 1).Value = "Computer: "
    Cells(2, 1).Value = objQuickFix.CSName
    Cells(1, 2).Value = "Description: "
    Cells(2, 2).Value = objQuickFix.Description
    Cells(2, 3).Value = "Hot Fix ID: "
    Cells(3, 3).Value = objQuickFix.HotFixID
    Cells(3, 4).Value = "Installation Date: "
    Cells(4, 4).Value = objQuickFix.InstallDate
    Cells(4, 5).Value = "Installed By: "
    Cells(5, 5).Value = objQuickFix.InstalledBy
Next
End Sub

Select allOpen in new window