Hi Valeria,

A couple of suggestions :

1. To delete Totals, there is no need to delete, it can be part of
Table Options

With ActiveSheet.PivotTables("PivotTable1")
.ColumnGrand = False
.RowGrand = False
End With

2. The xlLastCell instruction can be tricky, it might be safer to use
Range(Selection, Selection.End(xlDown)).Select

HTH
Cheers
Carim