You spent lots of time in structuring the CDNR sheet for future working. It easy for 1 time, took more time if you have 2 sheets but if you have more than 5 sheets then this trick helps you in time-saving and from machine work. It simple and easy Here are the steps : Press ALT +F11 insert new module copy the code and paste in module Sub vir() Application.ScreenUpdating =false Rows("1:4").Select Range("O1").Activate Selection.Delete Shift:=xlUp ActiveSheet.Shapes.Range(Array("Picture 1")).Select Selection.Delete Range("C1:F1").Select Selection.ClearContents Range("J1:M1").Select Selection.ClearContents Range("A1:A2").Select With Selection .HorizontalAlignment = xlGeneral .VerticalAlignment = xlCenter .WrapText = True .Or...