macro to workbook not working

hi all, i got a macro to split my data into separate sheets from using column F but it doesn't work. it stops working when it gets to - Sheets("orderbook").Select

what could be causing the issue?

the macro is below.



Sub split_data()

Dim wb As Workbook
Dim ws As Worksheet


Sheets("orderbook").Select
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("F:F").Copy
Sheets.Add(after:=Sheets("orderbook")).Name = "temp"
ActiveSheet.Range("A1").PasteSpecial
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
vrw = ActiveSheet.Range("A1").End(xlDown).Row

For i = 2 To vrw

Sheets("temp").Select
supplier_name = ActiveSheet.Range(a & i).Value
Sheets("orderbook").Select
ActiveSheet.AutoFilterMode = False


vrw1 = ActiveSheet.Range("a1").End(xlDown).Row
vadd = ActiveSheet.Range("a1").End(xlToRight).Address(, False)
Vcol = Left(vadd, InStr(1, vadd, "$") - 1)

ActiveSheet.Range("a1:" & Vcol & vrw1).AutoFilter field:=6, criterial:=supplier

Vrw2 = activsheet.Range("a1").End(xlDown).Row

ActiveSheet.Range("A1:" & Vcol & Vrw2).Copy

Sheets.Add(after:=Sheets("temp")).Name = supplier_name
ActiveSheet.Range("a1").pastesprecial xlPasteAll

Selection.Columns.AutoFit

Next i

Sheets("temp").Delete

End Sub