Sub Formatting()
 
 ' Objective
 ' Name
 ' Date
 
    With Worksheets("Formatting")
        
        With .Range("A1")
            .Value = "Expenses For March"
            With .Font
                .Name = "Arial"
                .Bold = True
                .ColorIndex = 5
                .Size = 14
         End With
         
          With .Interior
                .ColorIndex = 2
            End With
            
            .HorizontalAlignment = xlLeft
        End With
        
        With Range("A3:A6")
            .InsertIndent 1
            With .Font
                .Italic = True
                .Bold = True
                .ColorIndex = 3
            End With
            
            With .Range("B3:B6")
                .Interior.ColorIndex = 37
                .NumberFormat = "$#,##0"
            End With
        
        End With 

End Sub