Sub test()
'
' test Macro
'
' Keyboard Shortcut: Ctrl+q
'
    Range(Selection, Selection.End(xlToRight)).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Selection.End(xlToRight).Select
    Range("G2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Insert Shift:=xlDown
    Range("F2").Select
    Selection.ClearContents
    Range("F2").Select
End Sub