The line with activecell.formula is not correct. What I'm trying to do is to
add up the time for person 1-16 on the total page if the date isn't a holiday.

Sub TotalThemUp()
Dim i As Long
Dim j As Long
Range("startpoint").Select
Range("B11:AF22").ClearContents
For i = 1 To 12
For j = 1 To 31
If ActiveCell.Offset(i, j) < "H" Then
ActiveCell.Formula&"R"&i&"C"&j =
"=sum(Person1:Person16!)"&"R"&i&"C"&j
End If
Next j
Next i
End Sub