Public Sub REPEATABILITY()
Dim myPivot As PivotTable
Dim myField As PivotField
On Error Resume Next
Application.DisplayAlerts = False
Sheets('TP_REPEATABILITY').Delete
Application.DisplayAlerts = True
Range('A1').Select
On Error Goto 0
Set myPivot = Sheets('REPEATABILITY').PivotTableWizard
Set myField = myPivot.PivotFields('RESULTS')
With myField
.Orientation = xlDataField
.Function = xlAverage
End With
Set myField = myPivot.PivotFields('DAY')
myField.Orientation = xlRowField
Set myField = myPivot.PivotFields('NUMBER OF DILUTIONS')
myField.Orientation = xlColumnField
Application.CommandBars('PivotTable').Visible = False
ActiveSheet.Name = 'TP_REPEATABILITY'
End Sub