At present the code under yellow button copies values only, try to change it


ActiveSheet.Range("G4:G260").AutoFilter Field:=1, Criteria1:="C"
    Range("A4:J260").Select
    Selection.Copy
    Sheets("DELIVERY").Select
    ActiveSheet.Range("A2").Select
    ActiveSheet.Paste