Code for pasting new data

[mana]

Sub test()
    
    With Sheets("Main")
        Sheets("Raw").Range("A1").CurrentRegion.Copy .Range("A1").End(xlDown).Offset(1)
        .Columns("A:D").RemoveDuplicates Columns:=Array(1, 2, 3, 4), Header:=xlYes
        .Columns("A:D").Sort key1:=Range("A1"), Header:=xlYes
        .Range("D1").End(xlDown).FormulaR1C1 = "=SUM(R2C:R[-1]C)"
    End With

End Sub