AndyHHHH,
Two thoughts, code should be close based on your sample.
Option 1
For TdElement = 0 to xData.length Step 4
...
Next
Option 2
For each TrElement in x.Rows
Set skuData = TrElement.cells(2)
Set qtyData = TrElement.cells(3)
Next
Hope this helps,
CautionMP
For the best results...