VBA to autofill from one named cell to a second named cell

[parkerbelt2]

I'm trying to Autofill a header from 1 cell to the next using named ranges. I can't seem to get the syntax right. I originally wanted to just use the Offsets rather than creating new variables for the Copy Range and the PasteRange, but I was having too much trouble.

Here's what I'm trying:

    Range(SplitCellHolder).Select
    PasteRange = Range(SplitCellHolder).Offset(2, 0).Address
    CopyRange = Range(SplitCellHolder).Offset(2, -1).Address
    Range(CopyRange).Select
    
   Selection.AutoFill Destination:=Range("Range(CopyRange).Address ":" Range(PasteRange).Address), Type:=xlFillDefault

 

[My Aswer Is This]

Why not use a simple script like this:

Sub My_Sub()
'Modified  9/30/2021  12:31:08 PM  EDT
Sheets("Alpha").Range("A1").Copy Sheets("Bravo").Range("G1")
End Sub