Range("I51").Formula = "=COUNTIF($B$6:$AF$17,""V"")+COUNTIF($B$21:$AF
$32,""V"")+COUNTIF($B$36:$AF$47,""V"")+(COUNTIF(B7 :AF47,""½V"")/2)"

The above code must be in one line.In this post it broke in 2 lines.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)

Range("I51").Formula = "=COUNTIF($B$6:$AF$17,""V"")+COUNTIF($B$21:$AF
$32,""V"")+COUNTIF($B$36:$AF$47,""V"")+(COUNTIF(B7 :AF47,""½V"")/2)"

End Sub