@david it is giving error her => Set pop = NewSheet.Range(NewSheet.Cells(1, 1), NewSheet.Cells(OutputRow - 1, 3))
Set pop = NewSheet.Range(NewSheet.Cells(1, 1), NewSheet.Cells(OutputRow - 1, 3))
is is saying app defined or object error.. outputrow - 1