Dim excel As Microsoft.Office.Interop.Excel.Application
Dim wb As Microsoft.Office.Interop.Excel.Workbook
Dim ws As Microsoft.Office.Interop.Excel.Worksheet
Dim p_ws As Microsoft.Office.Interop.Excel.Worksheet
Dim rng As Microsoft.Office.Interop.Excel.Range 
Dim p_rng As Microsoft.Office.Interop.Excel.Range

Try
excel = New Microsoft.Office.Interop.Excel.ApplicationClass
wb = excel.Workbooks.Open("Excel File Path")
excel.Visible=True

ws=CType(wb.Sheets("Your Sheet Name"),Microsoft.Office.Interop.Excel.Worksheet)
ws.Activate

rng=ws.Range("A1","P1268")

p_ws=CType(wb.Sheets.Add,Microsoft.Office.Interop.Excel.Worksheet)

  p_rng= CType(p_ws.Cells(1,1),Microsoft.Office.Interop.Excel.Range) 
 

Dim oPivotCache As Microsoft.Office.Interop.Excel.PivotCache=Nothing
Dim oPivotTables As Microsoft.Office.Interop.Excel.PivotTables=Nothing
Dim oPivotTable As Microsoft.Office.Interop.Excel.PivotTable=Nothing

oPivotCache=CType(wb.PivotCaches().Add(Microsoft.Office.Interop.Excel.XlPivotTableSourceType.xlDatabase,rng),Microsoft.Office.Interop.Excel.PivotCache)
oPivotTables=DirectCast(p_ws.PivotTables(Type.Missing),Microsoft.Office.Interop.Excel.PivotTables)
oPivotTable=oPivotTables.Add(oPivotCache,p_rng,"Test",Type.Missing,Type.Missing)


Dim oPivotField As Microsoft.Office.Interop.Excel.PivotField=Nothing


oPivotField=CType(oPivotTable.PivotFields("Field1"),Microsoft.Office.Interop.Excel.PivotField)
oPivotField.Orientation=Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlRowField
oPivotField.Subtotals(1)=False

oPivotField=CType(oPivotTable.PivotFields("Field2"),Microsoft.Office.Interop.Excel.PivotField)
oPivotField.Orientation=Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlRowField
oPivotField.Subtotals(1)=False

oPivotField=CType(oPivotTable.PivotFields("Field3"),Microsoft.Office.Interop.Excel.PivotField)
oPivotField.Orientation=Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlRowField
oPivotField.Subtotals(1)=False

oPivotField=CType(oPivotTable.PivotFields("Field4"),Microsoft.Office.Interop.Excel.PivotField)
oPivotField.Orientation=Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlRowField
oPivotField.Subtotals(1)=False
  
 oPivotField=CType(oPivotTable.PivotFields("Field5 it needs sum"),Microsoft.Office.Interop.Excel.PivotField)
oPivotField.Orientation=Microsoft.Office.Interop.Excel.XlPivotFieldOrientation.xlDataField
oPivotField.Function=Microsoft.Office.Interop.Excel.XlConsolidationFunction.xlSum
oPivotField.Name="Sum of PositiveInterest"

Catch es As Exception
System.Windows.MessageBox.Show(es.Message)
End Try

wb.Save
wb.close
excel.Quit
wb=Nothing
ws=Nothing
p_ws=Nothing
rng=Nothing
p_rng=Nothing
excel=Nothing
GC.Collect()