Trying to simplify the following code as there are a number if times it copies and pastes from the "Cust OrderInv" sheet to the "Details" sheet.
Many thanks
Many thanks
Sheets("Cust OrderInv").Select |
ActiveSheet.Unprotect |
ActiveSheet.Range("$A$95:$B$229").AutoFilter Field:=2, Criteria1:="<>" |
Range("F98:F152").Select |
Selection.Copy |
Sheets("Details").Select |
Range("A5000").Select |
Selection.End(xlUp).Select |
ActiveCell.Offset(0, 3).Select |
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ |
:=False, Transpose:=True |