instead of inserting Sheetname as name of the new worksheet I want to include the value of the last cell in colom 3 -> ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Value as
