Dynamic AutoFill Destination Range

Hi all this is my first post i hope i don't make any mistake,

I need help with this Macro, I can't don't know how to configure the Autofill Destination range to be the cells on right column to the cells selected in the previous statement.

Thanks in advance for the help.

Sub Macro1()
' Macro1 Macro
'
    Range("A50").Select
    Selection.End(xlToRight).Select
    Selection.End(xlToRight).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A51").Select
    Selection.End(xlToRight).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.AutoFill Destination:=Range("Q51:R58"), Type:=xlFillDefault
   


End Sub

Moderator's note: Please take the time to review our rules. There aren't many, and they are all important. Rule #3 requires code tags. I have added them for you this time because you are a new member. --6StringJazzer