Copying Data error from master sheet based on Range criteria

I was not able to find the code you are talking about.

Just change the line from

TheLastRow = Worksheets(VN_Sheet).UsedRange.Rows.Count + 1

to

TheLastRow = worksheets(VN_Sheet).range("B" & rows.count).end(xlup).row

If you want it to increment by 1, you can change it to

TheLastRow = Worksheets(VN_Sheet).range("B" & rows.count).end(xlup).offset(1,0).row