Loop Column reference in VBA Countif

Could somebody help me with this loop? I would like to compact this Countif to just a single line with the variable being passing thru as columns.

I can fix the half to the left of the equal sign, but how can can I loop the column numbers? My attempts so far have failed so any help is appreciated.

The columns to loop are 20, 4, 38, and 4, but of course there are more which I can easily put in once set on the right path.

The 2nd criteria range in the Countif is always the same with the 2nd criteria already run through a For Each structure.

Sub tryme()
    Dim x As Variant
    Dim i As Long: i = 3
    Dim wsSrc As Worksheet: Set wsSrc = Sheets("Projects")
    Dim wsDest As Worksheet: Set wsDest = Sheets("Stats")
    Dim LastRow As Long: LastRow = wsSrc.Range("A" & Rows.Count).End(xlUp).Row
    Dim wsf As Variant: Set wsf = Application.WorksheetFunction
    For Each x In Array("Gold", "Blue", "Orange", "Red")
        With wsSrc
            wsDest.Cells(2, i) = wsf.CountIfs(.Range(.Cells(2, 20), .Cells(LastRow, 20)), "", .Range(.Cells(2, 17), .Cells(LastRow, 17)), x)
            wsDest.Cells(3, i) = wsf.CountIfs(.Range(.Cells(2, 4), .Cells(LastRow, 4)), "", .Range(.Cells(2, 17), .Cells(LastRow, 17)), x)
            wsDest.Cells(4, i) = wsf.CountIfs(.Range(.Cells(2, 38), .Cells(LastRow, 38)), "", .Range(.Cells(2, 17), .Cells(LastRow, 17)), x)
            wsDest.Cells(5, i) = wsf.CountIfs(.Range(.Cells(2, 3), .Cells(LastRow, 3)), "", .Range(.Cells(2, 17), .Cells(LastRow, 17)), x)
            i = i + 1
        End With
    Next x
End Sub

Edit: I attached a sample workbook but limited the columns