And Macro 2. Let me know how these work out for you.

Sub Macro2()
Dim wkb As Workbook
Dim shtFilter As Worksheet
Dim rngFilter As Range
Dim shtDest As Worksheet
Dim rngLast As Range

Set wkb = ThisWorkbook
Set shtFilter = wkb.Sheets("Sheet1")
With shtFilter
    Set rngLast = .Cells.Find(What:="*", After:=.Range("A1"), Lookat:=xlPart, _
        LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
    Set rngFilter = .Range(.Cells(1, 1), rngLast)
End With
Debug.Print rngFilter.Address

If Not shtFilter.FilterMode Then
    rngFilter.AutoFilter
End If

rngFilter.AutoFilter Field:=7, Criteria1:="<>Received*"

Set shtDest = wkb.Sheets.Add(After:=wkb.Sheets(wkb.Sheets.Count))

shtFilter.Range("A1:C" & rngLast.Row).SpecialCells(xlCellTypeVisible).Copy shtDest.Range("A1")
shtFilter.AutoFilterMode = False
With shtDest
    .Range("A:A").Insert Shift:=xlToRight
    .Range("A1").Value = "Coach Number"
    .Range("B1").Value = "Date"
    .Range("C1").Value = "Number Dialed"
    .Range("D1").Value = "Minutes"
    .Range("E1").Value = "Call Type"
    .Range("F1").Value = "Called From"
    .Range("D2:D" & Application.WorksheetFunction.CountA(.Range("B:B"))).Value = 0
    .Range("E2:E" & Application.WorksheetFunction.CountA(.Range("B:B"))).Value = "Text Message"
    .Range("F2:F" & Application.WorksheetFunction.CountA(.Range("B:B"))).Value = "Mobile Phone"
End With

Cleanup:
Set rngLast = Nothing
Set rngFilter = Nothing
Set shtFilter = Nothing
Set shtDest = Nothing
Set wkb = Nothing
End Sub