vba countif 함수 현재행

Sub T열계산()
Dim rng As Range
Dim rowsCnt As Integer
Dim Temp As String
    rowsCnt = Cells(Rows.Count, "d").End(3).Row
 
    Set rng = Range(Cells(2, "F"), Cells(rowsCnt, "F"))
   
    Range(Cells(2, "T"), Cells(Rows.Count, "T")).ClearContents
    Temp = rng.Address
    Cells(2, "T").Select
    With rng.Offset(0, 14)
        .Formula = "=COUNTIF(" & Temp & ", $F2)"
        .Value = .Value
    End With
    Cells(2, "T").Select

End Sub