Sub conso()
Sheets("CONSO").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
If Sheets(s).Name Like "*Filiale*" Then
Range(Sheets(s).[A2], Sheets(s).[A65000].End(3).Offset(1, 0).End(2)).Copy [A65000].End(3).Offset(1, 0)
End If
Next s
On Error Resume Next
[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub