PDA

View Full Version : Code for pasting new data



Veeru
07-18-2017, 12:45 PM
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

mana
07-23-2017, 03:56 AM
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