Code for pasting new data

Hi,

Can we have a code where my raw tab data replace Mai tab data and at last we have total intact . Means code will create new rows before total row as per Raw tab data in main tab.

Sample file attached with name of Var

Thanks

Code:

---

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

---