add this code at the beginning

Sheets(Array("W", "Q", "R", "T")).Select
Sheets("W").Activate
r1 = Cells(Rows.Count, "e").End(xlUp).Row
If r1 = 4 Then
Rows("4:" & r1).Select
Selection.ClearContents
Else
End If
Sheets("main").Select


On Feb 24, 3:58*pm, tofimoon4
wrote:
Dear sir,with my thanks,asking you kindly ( if you have a time) to
implement the code on my example to see ( when i want to transfer any
new data from main to agents sheets ,all the past ones should be
transfered too ) this problem i think is possible to solve if there is a
new code for deleting all the data from main after transferring .
sorry for the annoyance.

--
tofimoon4
------------------------------------------------------------------------
tofimoon4's Profile:http://www.thecodecage.com/forumz/member.php?userid=138
View this thread:http://www.thecodecage.com/forumz/sh...ad.php?t=67250