Hi Vasanth,

Am Mon, 4 Jun 2012 13:10:07 +0000 schrieb Vasanth:

if i have data from column A to Column G then I need to copy the data
from Column E to Column G to copied to
Column H to Column J.

try:

LCol = Cells(1, Columns.Count).End(xlToLeft).Column
LRow = Cells(Rows.Count, 1).End(xlUp).Row

Range(Cells(1, LCol - 2), Cells(LRow, LCol)).Copy _
Destination:=Cells(1, LCol + 1)


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2