Add Row and Value Based on Row Above

Maybe you should explain the math further. You have for instance in your desired output in sheet in cell C8 the results of 60%, but no formula so we can see what you did and no explanation for why it's 60%. Above it is the number 3 and on the assigned sheet for John Doe is the number 4. So if you think how you came to the result of 60% based on those numbers, is obvious, it isn't.

I'm not saying I'm going to work on your problem, I'm just saying I think you need to explain that or maybe I'm the only one that doesn't get it.

I will however answer your last question.

is it possible to run a formula in a macro, but have the out put to the cell be the value returned, rather than the formula

Yes it's very common to do that. You can either run the formula in the cell with code and then basically do the equivalent of copying the cell and then paste special the value back in it, or you can do the calculation in code and paste the result into the cell.

Okay thanks for the clarification.
Regarding:

Of course this bring to light another thing for me to think about...what if John Doe visits the same bldg twice in a month

If you were to use a countif formula, you could set the criteria to greater than 0 and you would get how many buildings he visited regardless of how many times he visited each building.
For example this formula in your visits sheet in cell C7, will still show three even if you change one or all of the 1's to a higher number.

Formula:

=COUNTIF(C2:C6,">0")

Maybe later when I have more time I can help you with this. In the mean time maybe someone else will come up with a solution for you.

Good Luck.

Here you go.
I set it up so you can use Control + q to run the macro.

Sub willhh3()
Dim rngFound As Range, strFirst As String, rngData As Range, r As Range, c As Long, y As Long, z As String
       With Worksheets("Visits").ListObjects("Table1").ListColumns(2).DataBodyRange
            Set rngFound = .Find(What:="# Assigned Bldg Visited", LookAt:=xlWhole, SearchDirection:=xlNext, After:=.Cells(.Rows.Count), MatchCase:=False)
                If Not rngFound Is Nothing Then
                    Application.ScreenUpdating = False
                    strFirst = rngFound.Address
                    Worksheets("Visits").ListObjects("Table1").ListRows.Add (rngFound.Row)
                Else
                    MsgBox "No matches found for # Assigned Bldg Visited"
                    Exit Sub
                End If
            Do
                Set rngFound = .FindNext(rngFound)
                    If Not rngFound Is Nothing And strFirst <> rngFound.Address Then
                        Worksheets("Visits").ListObjects("Table1").ListRows.Add (rngFound.Row)
                    Else
                       Exit Do
                    End If
            Loop
    End With
    Set rngFound = Worksheets("Visits").ListObjects("Table1").DataBodyRange.SpecialCells(xlCellTypeConstants)
    For Each r In rngFound.Areas
        r(r.Rows.Count + 1, 1).Value = r(1).Value
        With r(r.Rows.Count + 1, 2)
            .Value = "% Assigned Bldg Visited": .Font.Color = 192
            .Font.Bold = True: .Font.Italic = True
        End With
        For c = 3 To r.Columns.Count
              y = r(r.Rows.Count, c).Value
              z = r(1).Value
              With r(r.Rows.Count + 1, c)
                  .Formula = "=" & y & "/VLOOKUP(" & Chr(34) & z & Chr(34) & ",Assigned!A:B,2)"
                   .Value = .Value
                   .NumberFormat = "0%"
              End With
        Next c
    Next r
    Application.ScreenUpdating = True
End Sub