join sheet 2 below sheet 1

V

vikram

do we have a small visual basic command with the help of which we ca
copy the used range in sheet2 and paste it below used range in sheet1

i have that big macro but i want to have simpler way

anyone can help?
thanks a lot frnd
 
M

Mike Fogleman

Sub Append ()
Dim rwct
Sheet1.Activate
rwct = ActiveSheet.UsedRange.Rows.Count
Sheet2.Activate
ActiveSheet.UsedRange.Select
Selection.Copy Destination:=Sheet1.Range("A" & rwct + 1)
End Sub

Mike F
 
T

Tom Ogilvy

Sub Tester2()
Dim rng As Range
Set rng = Worksheets("Sheet1").UsedRange
Worksheets("Sheet2").UsedRange.Copy _
rng.Rows(rng.Rows.Count + 1).Cells.Resize(1, 1)
End Sub

Assumes your sheets are named Sheet1 and Sheet2
 
V

vikram

Dim vikram
Sheets("Sheet1").Activate
vikram = ActiveSheet.UsedRange.Rows.Count
Sheets("sheet2").Activate
ActiveSheet.UsedRange.Select
Selection.Copy Destination:=Sheet1.range("A" & vikram + 1)
End Sub

error occurs in "Selection.Copy Destination:=Sheet1.range("A" & vikra
+ 1)"

it says copy area and paste area are not same size

i have range from "a:z" in sheet 2 and the same range inn sheet
 
R

ross

Try this pal

Sheets("Sheet1").Select
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
x = ActiveCell.Row
ActiveSheet.Cells(x + 1, 1).Select
x = ActiveCell.Address

Sheets("Sheet2").Select
Range("A1").Select
ActiveCell.SpecialCells(xlLastCell).Select
p = ActiveCell.Address

a = "a1"
Range(a, p).Select
Selection.Copy _
Destination:=Worksheets("sheet1").Range(x)

Good Luck
Ross
 
Top