Past data down to last row - code error

[gheyman]

I'm trying to copy data from Cell A1 and paste it on another form all the way down to the last row (Paste/repeat the same data in each row)

But it doesn't like my paste range. Thanks for the help

Sub Fill_CBOM()
'Author: G Heyman 190217

'Fill Additional Data
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False

Dim IMDLstRw As Long

    IMDLstRw = Sheet5.Range("A" & Rows.Count).End(xlUp).Row

'Component Qty
    Sheet1.Range("A1").Copy
    Sheet2.Range("A9:A" & IMDLstRw).Selection
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False

End Sub

 

[gheyman]

I figured it out. My defined range for last row was wrong. I was referencing a different sheet then where I needed to paste my data.

Thanks