Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Seleccinamos el Rango de Columnas a AutoAjustar
With Range("B:H")
.EntireColumn.AutoFit
.EntireRow.AutoFit
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
End Sub