Sub Count_cells_if()
Dim ws As Worksheet
Set ws = Worksheets("sh1")
ws.Range("a100") = Application.WorksheetFunction.CountIf(ws.Range("a"&Application.WorksheetFunction.Match(Range("f3"),Range("a1:a99"),0)&":a99"), "<=" & ws.Range("f3"))
ws.Range("b100") = Application.WorksheetFunction.CountIf(ws.Range("b"&Application.WorksheetFunction.Match(Range("f3"),Range("b1:b99"),0)&":b99"), "<=" & ws.Range("f3"))
ws.Range("c100") = Application.WorksheetFunction.CountIf(ws.Range("c"&Application.WorksheetFunction.Match(Range("f3"),Range("c1:c99"),0)&":c99"), "<=" & ws.Range("f3"))
ws.Range("d100") = Application.WorksheetFunction.CountIf(ws.Range("d"&Application.WorksheetFunction.Match(Range("f3"),Range("d1:d99"),0)&":d99"), "<=" & ws.Range("f3"))
End Sub