Simplify Copy and Paste between sheets

[Lloydlobo]

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

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

 

[Fluff]

How about

   With Sheets("Cust OrderInv")
      .Unprotect
      .Range("$A$95:$B$229").AutoFilter Field:=2, Criteria1:="<>"
      .AutoFilter.Range.Offset(1).Columns("F").Copy
      Sheets("Details").Range("A" & Rows.Count).End(xlUp).Offset(, 3).PasteSpecial xlPasteValues, , , True
   End With

 

[Lloydlobo]

VBA Code:

   With Sheets("Cust OrderInv")
      .Unprotect
      .Range("$A$95:$B$229").AutoFilter Field:=2, Criteria1:="<>"
      .AutoFilter.Range.Offset(1).Columns("F").Copy
      Sheets("Details").Range("A" & Rows.Count).End(xlUp).Offset(, 3).PasteSpecial xlPasteValues, , , True
   End With

Thanks. Will try it out.

 

[Fluff]

Ok,