From: Ashish Dabral <[email-masked]>
To: [email-masked]
Date: Mon, 6 Jun 2016 18:32:36 +0530 (IST)

Sub Call_Report() 
Dim sh As Worksheet 
Dim LastRow As Integer 
Dim akb As Workbook 
Dim wkb As Workbook 
Set wkb = ThisWorkbook 
Set sh = ThisWorkbook.Sheets(1) 
sh.Columns("F:F").NumberFormat = "0" 
sh.Columns("E:E").Select 
Selection.Insert Shift:=xlToRight 
Selection.Insert Shift:=xlToRight 
Selection.Insert Shift:=xlToRight 
LastRow = sh.Cells(Rows.Count, "C").End(xlUp).Row 
sh.Range("C2").Activate 
Do While ActiveCell.Value <> "" 
ActiveCell.Offset(0, 2).Value = VBA.Format(ActiveCell.Value, "hh:mm:ss") 
ActiveCell.Offset(1, 0).Select 
Loop 
sh.Range("D2").Activate 
Do While ActiveCell.Value <> "" 
ActiveCell.Offset(0, 2).Value = VBA.Format(ActiveCell.Value, "hh:mm:ss") 
ActiveCell.Offset(1, 0).Select 
Loop 
sh.Range("E2").Activate 
Do While ActiveCell.Value <> "" 
ActiveCell.Offset(0, 2).Value = VBA.Format(ActiveCell.Offset(0, 1) - ActiveCell, "hh:mm:ss") 
ActiveCell.Offset(1, 0).Select 
Loop 
sh.Columns("E:F").Delete 
sh.Range("E1").Value = "Duration Mine" 
sh.Range("A1:X1").AutoFilter field:=2, Criteria1:="abandoned", Operator:=xlOr, Criteria2:="missed" 
Workbooks.Add 
Set akb = ActiveWorkbook 

sh.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy akb.Sheets(1).Range("A1") 
wkb.Activate 
sh.Range("A1").AutoFilter 
sh.Range("A1:X1").AutoFilter field:=19, Criteria1:="HFL - Billing", Operator:=xlAnd, Criteria2:="HFL Sales" 

End Sub