Sub a()
Worksheets("Sheet2").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
With Selection
.WrapText = True
.WrapText = False
.ColumnWidth = 21
End With
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
With Selection
.Font.Color = vbYellow
.Interior.Color = vbRed
End With
Columns("A:A").Select
With Selection
.HorizontalAlignment = xlLeft
End With
Columns("B:B").Select
With Selection
.HorizontalAlignment = xlLeft
End With
Columns("F:F").Select
With Selection
.HorizontalAlignment = xlLeft
Selection.NumberFormat = "dd/MM/yyyy"
End With
Columns("F:F").Select
Selection.NumberFormat = "dd/MM/yyyy"
Columns("H:H").Select
With Selection
.HorizontalAlignment = xlLeft
End With
ActiveWorkbook.Save
End Sub