how do you make the column index below go from 2 out to column 37?

'vlookup from brand list to results1
Dim i As Integer
Dim j As Integer
For i = 2 To 20 'rows
 For j = 2 To 37 'cols
  alphanum = ConvertToLetter(j)
  Sheets("brand list").Range(alphanum & i) = WorksheetFunction.VLookup(Sheets("brand list").Range("A" & i).Value, Sheets("results1").Range("A2:AK20"), 2, False)
 Next j
Next i
i tried putting j in there just before false but it wouldn't work..