Sub copy_three()
Dim rng1 As Range
Dim rng2 As Range
Set rng1 = Worksheets("Sheet1").Range("A2:C4")
Set rng2 = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0)
rng1.Copy Destination:=rng2
End Sub


Gord


On Fri, 30 Dec 2011 11:39:58 -0600, kalpesh
wrote:

Hello,

i need to sovle my problem please

I use only A1: C4 cell to enter data ,
now my problem when i click command button how to copy cell range A2 : C4 when

every time i enter data in above cell range look exmple like below

sheet 1


A1 B2 C3
Roll No Name Grade
51 vipul c
52 Jigar a
53 viral b

sheet 2 contain follwing heading


A1 B1 C1
Roll No Name Grade


now, sheet 1 range A2:C4 will copy & paste in sheet 2 below given heading
like A2:C4 when i click command button on sheet 1 &

agin i enter new data in sheet 1 cell range A2 :C4 it wil be copy & paste in
sheet 2 in exact below in earlier paste cell (sheet 2) A5: C7


please give vba code or macro