Hello everyone,
I'm trying to run a simple cut and paste but the below code contains a syntax error.
Can anyone tell me where my mistake is?
Thanks
I'm trying to run a simple cut and paste but the below code contains a syntax error.
Code:
Sub FilterSO()
Range("A7:A377").Cut Destination:=Range("A8")
With Sheets(1).Range([A2], [A2].SpecialCells(xlLastCell))
[A:A].AutoFilter
.AutoFilter Field:=1, Criteria1:=Array("*SO*", "PSW"), Operator:=xlFilterValues
.Copy Destination:=Sheets("Sheet3").Range("A1").PasteSpecial End With
End SubThanks