VB code not picking up two other columns :s

[Doogle]

Should this

str = Sheet1.Cells(r, qCol).Value

be this

str = Sheet1.Cells(r, CurrentQCol).Value

?
I don't see where you're changing qCol within the loops