hi
check the attachment
Sub Macro1()
Dim I As Long
Dim J As Integer
Dim N, Z As Long
Dim x As String
Worksheets(1).Activate
Range("a1").Select
Selection.End(xlToRight).Select
Dim temp As String
temp = ActiveCell.Address
x = Mid(temp, 2, (InStr(2, temp, "$") - 2))
For J = 2 To Worksheets.Count
Worksheets(J).Select
Range("A1048576").Select
Selection.End(xlUp).Select
N = ActiveCell.Row
If N >= 2 Then
Range("A2:" & x & N).Select
Selection.Copy
Worksheets(1).Select
Range("A1048576").Select
Selection.End(xlUp).Select
Z = ActiveCell.Row + 1
Range("A" & Z).Select
ActiveSheet.Paste
End If
Next J
Worksheets(1).Select
End Sub
On Thu, Feb 18, 2010 at 1:48 PM, Mahesh <mahender.bi...@gmail.com> wrote:
> Dear Gurus,
>
> Need ur hepl.
>
> I have 07 sheet in a wookbook with same header row.
>
> Now i want to copy all the data in a single xlxs execpt the header row.
>
> --
> With Love,
> Mahesh Bisht
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our Facebook Group @
> http://www.facebook.com/group.php?gid=287779555678
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> HELP US GROW !!
>
> We reach over 6,800 subscribers worldwide and receive many nice notes about
> the learning and support from the group.Let friends and co-workers know they
> can subscribe to group at
> http://groups.google.com/group/excel-macros/subscribe
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
copying data from different sheets to sheet 1.xlsm
Description: Binary data
