DannyMLT

​

https://preview.redd.it/cpjvs815qogb1.png?width=999&format=png&auto=webp&s=8a7c39f18084fc1e6a306ff9c54493f30aeff3f1

=IF((OR('Paste Here'!A2="Channel",'Paste Here'!A2= "")),"Start",'Paste Here'!A2)

[10:21, 5/30/2021] Damien: Sub Filter_Main()

'

' Filter_Main Macro

'

' Keyboard Shortcut: Ctrl+q

'

ActiveSheet.Range("$A$1:$F$32").AutoFilter Field:=1, Criteria1:=Array( _

"Friday 28 May 2021", "Start", "Traders"), Operator:=xlFilterValues

ActiveSheet.Range("$A$1:$F$32").AutoFilter Field:=1, Criteria1:= _

"=Friday 28 May 2021", Operator:=xlOr, Criteria2:="=Traders"

ActiveSheet.Range("$A$1:$F$32").AutoFilter Field:=1, Criteria1:= _

"Friday 28 May 2021"

End Sub

[10:21, 5/30/2021] Damien: Macro for Filter

[10:21, 5/30/2021] Damien: Sub Seperate()

Range("A2:A1000").Select

​

Selection.TextToColumns _

Destination:=Range("A2:E1000"), _

DataType:=xlDelimite