Copy Range from one sheet, and paste it to the next available column on another sheet

My Mistake!!!

Sub Copy_JColumn()
Dim r As Range
Set r = Sheets("DaY").Range("IV1").End(xlToLeft)
Sheets("Lists").Range("J1:J103").Copy r.Offset(0, 1)
End Sub

Forgot the offset part