copy cell range in other sheet

[kalpesh]

Hello

i need to sovle my problem pleas

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

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

sheet


A1 B2 C
Roll No Name Grad
51 vipul
52 Jigar
53 viral

sheet 2 contain follwing headin


A1 B1 C
Roll No Name Grad


now, sheet 1 range A2:C4 will copy & paste in sheet 2 below given headin
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 i
sheet 2 in exact below in earlier paste cell (sheet 2) A5: C


please give vba code or macro

 

[Gord Dibben]

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