Hello.
Try the following macro :
Sub test()
Dim c As Range, myRow As Long
myRow = 14
Range([A14], [D65000].End(xlUp)).Clear
For Each c In Range([A4], [A4].End(xlDown))
Cells(myRow, 1) = c
Cells(myRow, 2) = c.Offset(, 1)
[C3].Copy Cells(myRow, 3)
Cells(myRow, 4) =
Hi Skanda,
Solved workbook is attached herewith. Steps are also given in Sheet 1.
Thanks
DILipandey (Back from Holidays)
--
DILIP KUMAR PANDEY
MBA-HR,B COM(Hons.),BCA
Mobile: +91 9810929744
dilipan...@gmail.com
dilipan...@yahoo.com
New Delhi - 110062
On Wed, Jul 15, 2009 at 2:13 AM, Skanda