Autofilter data for multiple criteria and write name to all visible cells till last row

[aman2059]

Could you anyone please help me on below.

I need my code to do following

1. filter for one criteria("=SE02") in column Q
2. Go to column R, write "AMC India" on all visible cells till last row
3. remove filter given in point 1.
4. Again filter for multiple criteria( ">= YC101", "<= MR107", "WE109") in column AL
5. Go to column R, write "YMC India" on all visible cells till last row

Below is my code. Thank you in advance for your help

Sub Save214012016()
    
    Dim lastRow As Long

    Range("Q1").Select
    Selection.AutoFilter
    ActiveSheet.Range("A1:A, lastrow").AutoFilter Field:=17, Criteria1:= _
        "=*SE02*", Operator:=xlAnd
    Range("R1").Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "AMC India"
    ActiveCell.Copy
    Range("R2:R, lastrow").SpecialCells(xlCellTypeVisible).PasteSpecial xlValues

     Selection.AutoFilter
         Range("AL1").Select
    ActiveSheet.Range("$A$1:$BA$5985").AutoFilter Field:=37, Criteria1:=Array( _
    ">= YC101", "<= MR107", "WE109"), Operator:=xlFilterValues

     Range("R1").Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "YMC India"
    ActiveCell.Copy
    Range("R2:R, lastrow").SpecialCells(xlCellTypeVisible).PasteSpecial xlValues

End sub