Sub method2() Dim i, j, k, s As Long s = Sheets.Count Sheets.Add After:=Sheets(Sheets.Count) For i = 1 To s Sheets(i).Select
j = 2
' it will copy till last used row automatically
k = ActiveSheet.UsedRange.Rows.Count
Rows(j & ":" & k).Copy
Sheets(Sheets.Count).Select
Sheets(Sheets.Count).Range("a65356").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Next i
End Sub
On Wed, Nov 9, 2011 at 10:08 AM, smitha.kumari
<smitha.kum...@speridian.com>wrote:
> Hi,****
>
> ** **
>
> I want to know how we can consolidate data in different worksheets into
> one worksheet.****
>
> ** **
>
> Regards****
>
> Smitha/ Senior Finance Executive****
>
> [image: Speridian%20Logo]****
>
> World Class Solutions to Power Global Businesses****
>
> Office: 0471-2527525/2700526****
>
> smitha.kum...@speridian.com****
>
> ** **
>
> --
> FORUM RULES (925+ members already BANNED for violation)
>
> 1) Use concise, accurate thread titles. Poor thread titles, like Please
> Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice
> will not get quick attention or may not be answered.
>
> 2) Don't post a question in the thread of another member.
>
> 3) Don't post questions regarding breaking or bypassing any security
> measure.
>
> 4) Acknowledge the responses you receive, good or bad.
>
> 5) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>
--
*Regards*
* *
*Ashish Koul*
*http://www.excelvbamacros.com/*
P Before printing, think about the environment.
--
FORUM RULES (925+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
<<image001.jpg>>
