Hi,

Can you try this instead :
y = ThisWorkbook.Sheets("Data").Cells(ThisWorkbook.Sheets("Data").Rows.Count, 1).End(xlUp).Row + 1 '<-------- For this line i keep getting runtime error '9', subscript out of range