Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.Font.Bold = True
    With Selection.Font
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.499984740745262
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249977111117893
    End With
    Selection.Style = "Currency"
End Sub
Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A1:M1").Select
    Selection.Font.Bold = True
    Selection.Font.Size = 12
    ActiveWindow.SmallScroll Down:=0
    Range("A2").Select
    ActiveWindow.FreezePanes = True
    ActiveWindow.SmallScroll Down:=0
    Columns("A:A").Select
    Selection.Delete Shift:=xlToLeft
    Columns("K:K").Select
    Selection.Delete Shift:=xlToLeft
    Selection.Delete Shift:=xlToLeft
    Columns("G:G").Select
    Selection.Insert Shift:=xlToRight
    Range("G1").Select
    ActiveCell.FormulaR1C1 = "VAT inc Price"
    Range("G2").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=IF(RC[1]=""Yes"",RC[-1]*1.23,RC[-1])"
    Selection.AutoFill Destination:=Range("G2:G701")
    Range("G2:G701").Select
    Range("C2:G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Style = "Comma"
    Selection.NumberFormat = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormat = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
    Range("I669").Select
    Selection.End(xlUp).Select
    Range("I2:J2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Style = "Comma"
    Selection.NumberFormat = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
    Selection.NumberFormat = "_-* #,##0_-;-* #,##0_-;_-* ""-""??_-;_-@_-"
    Range("K669").Select
    Selection.End(xlUp).Select
    Range("K2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("A2").Select
End Sub
Sub InsertVATInc()
'
' InsertVATInc Macro
'

'
    Range("M16").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*1.23"
    Range("M16").Select
    Selection.NumberFormat = "0.000"
    Selection.NumberFormat = "0.00"
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("L16").Select
End Sub

Sub InsertASheet()

For i = 1 To 5

Sheets.Add.Name = "Hello World " & i

Next i

End Sub


Sub LoopDemo()

For i = 1 To 15

    If ActiveCell.Offset(i, 0).Value = "" Then
    
        ActiveCell.Offset(i, 0).Value = i * 100
    
    End If

Next i


End Sub


Sub InsertVATInc2()
'
' InsertVATInc2 Macro
'

'
    ActiveCell.Offset(0, 1).Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=RC[-1]*1.23"
    'Selection.NumberFormat = "0.00"
    
    
        Selection.Font.Bold = True
    With Selection.Font
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249977111117893
    End With
    Selection.Style = "Currency"

    
    
    
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(0, -1).Select
    
    
    
End Sub